home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / developer-tools / andere sprachen / perl5 / perl5.002 / ext / posix / posix.xs < prev    next >
Encoding:
Text File  |  1996-02-12  |  54.9 KB  |  3,133 lines
  1. #include "EXTERN.h"
  2. #include "perl.h"
  3. #include "XSUB.h"
  4. #include <ctype.h>
  5. #ifdef I_DIRENT    /* XXX maybe better to just rely on perl.h? */
  6. #include <dirent.h>
  7. #endif
  8. #include <errno.h>
  9. #include <fcntl.h>
  10. #ifdef I_FLOAT
  11. #include <float.h>
  12. #endif
  13. #include <grp.h>
  14. #ifdef I_LIMITS
  15. #include <limits.h>
  16. #endif
  17. #include <locale.h>
  18. #include <math.h>
  19. #ifdef I_PWD
  20. #include <pwd.h>
  21. #endif
  22. #include <setjmp.h>
  23. #include <signal.h>
  24. #ifdef I_STDARG
  25. #include <stdarg.h>
  26. #endif
  27. #ifdef I_STDDEF
  28. #include <stddef.h>
  29. #endif
  30. /* XXX This comment is just to make I_TERMIO and I_SGTTY visible to 
  31.    metaconfig for future extension writers.  We don't use them in POSIX.
  32.    (This is really sneaky :-)  --AD
  33. */
  34. #if defined(I_TERMIOS)
  35. #include <termios.h>
  36. #endif
  37. #include <stdio.h>
  38. #ifdef I_STDLIB
  39. #include <stdlib.h>
  40. #endif
  41. #include <string.h>
  42. #include <sys/stat.h>
  43. #include <sys/times.h>
  44. #include <sys/types.h>
  45. #ifdef HAS_UNAME
  46. #include <sys/utsname.h>
  47. #endif
  48. #include <sys/wait.h>
  49. #include <time.h>
  50. #include <unistd.h>
  51. #ifdef I_UTIME
  52. #include <utime.h>
  53. #endif
  54.  
  55. typedef int SysRet;
  56. typedef long SysRetLong;
  57. typedef sigset_t* POSIX__SigSet;
  58. typedef HV* POSIX__SigAction;
  59. #ifdef I_TERMIOS
  60. typedef struct termios* POSIX__Termios;
  61. #else /* Define termios types to int, and call not_here for the functions.*/
  62. #define POSIX__Termios int
  63. #define speed_t int
  64. #define tcflag_t int
  65. #define cc_t int
  66. #define cfgetispeed(x) not_here("cfgetispeed")
  67. #define cfgetospeed(x) not_here("cfgetospeed")
  68. #define tcdrain(x) not_here("tcdrain")
  69. #define tcflush(x,y) not_here("tcflush")
  70. #define tcsendbreak(x,y) not_here("tcsendbreak")
  71. #define cfsetispeed(x,y) not_here("cfsetispeed")
  72. #define cfsetospeed(x,y) not_here("cfsetospeed")
  73. #define ctermid(x) (char *) not_here("ctermid")
  74. #define tcflow(x,y) not_here("tcflow")
  75. #define tcgetattr(x,y) not_here("tcgetattr")
  76. #define tcsetattr(x,y,z) not_here("tcsetattr")
  77. #endif
  78.  
  79. /* Possibly needed prototypes */
  80. char *cuserid _((char *));
  81.  
  82. #ifndef HAS_CUSERID
  83. #define cuserid(a) (char *) not_here("cuserid")
  84. #endif
  85. #ifndef HAS_DIFFTIME
  86. #ifndef difftime
  87. #define difftime(a,b) not_here("difftime")
  88. #endif
  89. #endif
  90. #ifndef HAS_FPATHCONF
  91. #define fpathconf(f,n)     (SysRetLong) not_here("fpathconf")
  92. #endif
  93. #ifndef HAS_MKTIME
  94. #define mktime(a) not_here("mktime")
  95. #endif
  96. #ifndef HAS_NICE
  97. #define nice(a) not_here("nice")
  98. #endif
  99. #ifndef HAS_PATHCONF
  100. #define pathconf(f,n)     (SysRetLong) not_here("pathconf")
  101. #endif
  102. #ifndef HAS_SYSCONF
  103. #define sysconf(n)     (SysRetLong) not_here("sysconf")
  104. #endif
  105. #ifndef HAS_READLINK
  106. #define readlink(a,b,c) not_here("readlink")
  107. #endif
  108. #ifndef HAS_SETPGID
  109. #define setpgid(a,b) not_here("setpgid")
  110. #endif
  111. #ifndef HAS_SETSID
  112. #define setsid() not_here("setsid")
  113. #endif
  114. #ifndef HAS_STRCOLL
  115. #define strcoll(s1,s2) not_here("strcoll")
  116. #endif
  117. #ifndef HAS_STRXFRM
  118. #define strxfrm(s1,s2,n) not_here("strxfrm")
  119. #endif
  120. #ifndef HAS_TCGETPGRP
  121. #define tcgetpgrp(a) not_here("tcgetpgrp")
  122. #endif
  123. #ifndef HAS_TCSETPGRP
  124. #define tcsetpgrp(a,b) not_here("tcsetpgrp")
  125. #endif
  126. #ifndef HAS_TIMES
  127. #define times(a) not_here("times")
  128. #endif
  129. #ifndef HAS_UNAME
  130. #define uname(a) not_here("uname")
  131. #endif
  132. #ifndef HAS_WAITPID
  133. #define waitpid(a,b,c) not_here("waitpid")
  134. #endif
  135.  
  136. #ifndef HAS_FGETPOS
  137. #define fgetpos(a,b) not_here("fgetpos")
  138. #endif
  139. #ifndef HAS_FSETPOS
  140. #define fsetpos(a,b) not_here("fsetpos")
  141. #endif
  142.  
  143. #ifndef HAS_MBLEN
  144. #ifndef mblen
  145. #define mblen(a,b) not_here("mblen")
  146. #endif
  147. #endif
  148. #ifndef HAS_MBSTOWCS
  149. #define mbstowcs(s, pwcs, n) not_here("mbstowcs")
  150. #endif
  151. #ifndef HAS_MBTOWC
  152. #define mbtowc(pwc, s, n) not_here("mbtowc")
  153. #endif
  154. #ifndef HAS_WCSTOMBS
  155. #define wcstombs(s, pwcs, n) not_here("wcstombs")
  156. #endif
  157. #ifndef HAS_WCTOMB
  158. #define wctomb(s, wchar) not_here("wcstombs")
  159. #endif
  160. #if !defined(HAS_MBLEN) && !defined(HAS_MBSTOWCS) && !defined(HAS_MBTOWC) && !defined(HAS_WCSTOMBS) && !defined(HAS_WCTOMB)
  161. /* If we don't have these functions, then we wouldn't have gotten a typedef
  162.    for wchar_t, the wide character type.  Defining wchar_t allows the
  163.    functions referencing it to compile.  Its actual type is then meaningless,
  164.    since without the above functions, all sections using it end up calling
  165.    not_here() and croak.  --Kaveh Ghazi (ghazi@noc.rutgers.edu) 9/18/94. */
  166. #ifndef wchar_t
  167. #define wchar_t char
  168. #endif
  169. #endif
  170.  
  171. #ifndef HAS_LOCALECONV
  172. #define localeconv() not_here("localeconv")
  173. #endif
  174.  
  175. #ifdef HAS_TZNAME
  176. extern char *tzname[];
  177. #else
  178. char *tzname[] = { "" , "" };
  179. #endif
  180.  
  181. /* XXX struct tm on some systems (SunOS4/BSD) contains extra (non POSIX)
  182.  * fields for which we don't have Configure support yet:
  183.  *   char *tm_zone;   -- abbreviation of timezone name
  184.  *   long tm_gmtoff;  -- offset from GMT in seconds
  185.  * To workaround core dumps from the uninitialised tm_zone we get the
  186.  * system to give us a reasonable struct to copy.  This fix means that
  187.  * strftime uses the tm_zone and tm_gmtoff values returned by
  188.  * localtime(time()). That should give the desired result most of the
  189.  * time. But probably not always!
  190.  *
  191.  * This is a temporary workaround to be removed once Configure
  192.  * support is added and NETaa14816 is considered in full.
  193.  * It does not address tzname aspects of NETaa14816.
  194.  */
  195. #ifdef STRUCT_TM_HASZONE
  196. static void
  197. init_tm(ptm)        /* see mktime, strftime and asctime    */
  198.     struct tm *ptm;
  199. {
  200.     Time_t now;
  201.     (void)time(&now);
  202.     Copy(localtime(&now), ptm, 1, struct tm);
  203. }
  204.  
  205. #else
  206. # define init_tm(ptm)
  207. #endif
  208.  
  209.  
  210. #ifndef HAS_LONG_DOUBLE /* XXX What to do about long doubles? */
  211. #ifdef LDBL_MAX
  212. #undef LDBL_MAX
  213. #endif
  214. #ifdef LDBL_MIN
  215. #undef LDBL_MIN
  216. #endif
  217. #ifdef LDBL_EPSILON
  218. #undef LDBL_EPSILON
  219. #endif
  220. #endif
  221.  
  222. static int
  223. not_here(s)
  224. char *s;
  225. {
  226.     croak("POSIX::%s not implemented on this architecture", s);
  227.     return -1;
  228. }
  229.  
  230. static double
  231. constant(name, arg)
  232. char *name;
  233. int arg;
  234. {
  235.     errno = 0;
  236.     switch (*name) {
  237.     case 'A':
  238.     if (strEQ(name, "ARG_MAX"))
  239. #ifdef ARG_MAX
  240.         return ARG_MAX;
  241. #else
  242.         goto not_there;
  243. #endif
  244.     break;
  245.     case 'B':
  246.     if (strEQ(name, "BUFSIZ"))
  247. #ifdef BUFSIZ
  248.         return BUFSIZ;
  249. #else
  250.         goto not_there;
  251. #endif
  252.     if (strEQ(name, "BRKINT"))
  253. #ifdef BRKINT
  254.         return BRKINT;
  255. #else
  256.         goto not_there;
  257. #endif
  258.     if (strEQ(name, "B9600"))
  259. #ifdef B9600
  260.         return B9600;
  261. #else
  262.         goto not_there;
  263. #endif
  264.     if (strEQ(name, "B19200"))
  265. #ifdef B19200
  266.         return B19200;
  267. #else
  268.         goto not_there;
  269. #endif
  270.     if (strEQ(name, "B38400"))
  271. #ifdef B38400
  272.         return B38400;
  273. #else
  274.         goto not_there;
  275. #endif
  276.     if (strEQ(name, "B0"))
  277. #ifdef B0
  278.         return B0;
  279. #else
  280.         goto not_there;
  281. #endif
  282.     if (strEQ(name, "B110"))
  283. #ifdef B110
  284.         return B110;
  285. #else
  286.         goto not_there;
  287. #endif
  288.     if (strEQ(name, "B1200"))
  289. #ifdef B1200
  290.         return B1200;
  291. #else
  292.         goto not_there;
  293. #endif
  294.     if (strEQ(name, "B134"))
  295. #ifdef B134
  296.         return B134;
  297. #else
  298.         goto not_there;
  299. #endif
  300.     if (strEQ(name, "B150"))
  301. #ifdef B150
  302.         return B150;
  303. #else
  304.         goto not_there;
  305. #endif
  306.     if (strEQ(name, "B1800"))
  307. #ifdef B1800
  308.         return B1800;
  309. #else
  310.         goto not_there;
  311. #endif
  312.     if (strEQ(name, "B200"))
  313. #ifdef B200
  314.         return B200;
  315. #else
  316.         goto not_there;
  317. #endif
  318.     if (strEQ(name, "B2400"))
  319. #ifdef B2400
  320.         return B2400;
  321. #else
  322.         goto not_there;
  323. #endif
  324.     if (strEQ(name, "B300"))
  325. #ifdef B300
  326.         return B300;
  327. #else
  328.         goto not_there;
  329. #endif
  330.     if (strEQ(name, "B4800"))
  331. #ifdef B4800
  332.         return B4800;
  333. #else
  334.         goto not_there;
  335. #endif
  336.     if (strEQ(name, "B50"))
  337. #ifdef B50
  338.         return B50;
  339. #else
  340.         goto not_there;
  341. #endif
  342.     if (strEQ(name, "B600"))
  343. #ifdef B600
  344.         return B600;
  345. #else
  346.         goto not_there;
  347. #endif
  348.     if (strEQ(name, "B75"))
  349. #ifdef B75
  350.         return B75;
  351. #else
  352.         goto not_there;
  353. #endif
  354.     break;
  355.     case 'C':
  356.     if (strEQ(name, "CHAR_BIT"))
  357. #ifdef CHAR_BIT
  358.         return CHAR_BIT;
  359. #else
  360.         goto not_there;
  361. #endif
  362.     if (strEQ(name, "CHAR_MAX"))
  363. #ifdef CHAR_MAX
  364.         return CHAR_MAX;
  365. #else
  366.         goto not_there;
  367. #endif
  368.     if (strEQ(name, "CHAR_MIN"))
  369. #ifdef CHAR_MIN
  370.         return CHAR_MIN;
  371. #else
  372.         goto not_there;
  373. #endif
  374.     if (strEQ(name, "CHILD_MAX"))
  375. #ifdef CHILD_MAX
  376.         return CHILD_MAX;
  377. #else
  378.         goto not_there;
  379. #endif
  380.     if (strEQ(name, "CLK_TCK"))
  381. #ifdef CLK_TCK
  382.         return CLK_TCK;
  383. #else
  384.         goto not_there;
  385. #endif
  386.     if (strEQ(name, "CLOCAL"))
  387. #ifdef CLOCAL
  388.         return CLOCAL;
  389. #else
  390.         goto not_there;
  391. #endif
  392.     if (strEQ(name, "CLOCKS_PER_SEC"))
  393. #ifdef CLOCKS_PER_SEC
  394.         return CLOCKS_PER_SEC;
  395. #else
  396.         goto not_there;
  397. #endif
  398.     if (strEQ(name, "CREAD"))
  399. #ifdef CREAD
  400.         return CREAD;
  401. #else
  402.         goto not_there;
  403. #endif
  404.     if (strEQ(name, "CS5"))
  405. #ifdef CS5
  406.         return CS5;
  407. #else
  408.         goto not_there;
  409. #endif
  410.     if (strEQ(name, "CS6"))
  411. #ifdef CS6
  412.         return CS6;
  413. #else
  414.         goto not_there;
  415. #endif
  416.     if (strEQ(name, "CS7"))
  417. #ifdef CS7
  418.         return CS7;
  419. #else
  420.         goto not_there;
  421. #endif
  422.     if (strEQ(name, "CS8"))
  423. #ifdef CS8
  424.         return CS8;
  425. #else
  426.         goto not_there;
  427. #endif
  428.     if (strEQ(name, "CSIZE"))
  429. #ifdef CSIZE
  430.         return CSIZE;
  431. #else
  432.         goto not_there;
  433. #endif
  434.     if (strEQ(name, "CSTOPB"))
  435. #ifdef CSTOPB
  436.         return CSTOPB;
  437. #else
  438.         goto not_there;
  439. #endif
  440.     break;
  441.     case 'D':
  442.     if (strEQ(name, "DBL_MAX"))
  443. #ifdef DBL_MAX
  444.         return DBL_MAX;
  445. #else
  446.         goto not_there;
  447. #endif
  448.     if (strEQ(name, "DBL_MIN"))
  449. #ifdef DBL_MIN
  450.         return DBL_MIN;
  451. #else
  452.         goto not_there;
  453. #endif
  454.     if (strEQ(name, "DBL_DIG"))
  455. #ifdef DBL_DIG
  456.         return DBL_DIG;
  457. #else
  458.         goto not_there;
  459. #endif
  460.     if (strEQ(name, "DBL_EPSILON"))
  461. #ifdef DBL_EPSILON
  462.         return DBL_EPSILON;
  463. #else
  464.         goto not_there;
  465. #endif
  466.     if (strEQ(name, "DBL_MANT_DIG"))
  467. #ifdef DBL_MANT_DIG
  468.         return DBL_MANT_DIG;
  469. #else
  470.         goto not_there;
  471. #endif
  472.     if (strEQ(name, "DBL_MAX_10_EXP"))
  473. #ifdef DBL_MAX_10_EXP
  474.         return DBL_MAX_10_EXP;
  475. #else
  476.         goto not_there;
  477. #endif
  478.     if (strEQ(name, "DBL_MAX_EXP"))
  479. #ifdef DBL_MAX_EXP
  480.         return DBL_MAX_EXP;
  481. #else
  482.         goto not_there;
  483. #endif
  484.     if (strEQ(name, "DBL_MIN_10_EXP"))
  485. #ifdef DBL_MIN_10_EXP
  486.         return DBL_MIN_10_EXP;
  487. #else
  488.         goto not_there;
  489. #endif
  490.     if (strEQ(name, "DBL_MIN_EXP"))
  491. #ifdef DBL_MIN_EXP
  492.         return DBL_MIN_EXP;
  493. #else
  494.         goto not_there;
  495. #endif
  496.     break;
  497.     case 'E':
  498.     switch (name[1]) {
  499.     case 'A':
  500.         if (strEQ(name, "EACCES"))
  501. #ifdef EACCES
  502.         return EACCES;
  503. #else
  504.         goto not_there;
  505. #endif
  506.         if (strEQ(name, "EAGAIN"))
  507. #ifdef EAGAIN
  508.         return EAGAIN;
  509. #else
  510.         goto not_there;
  511. #endif
  512.         break;
  513.     case 'B':
  514.         if (strEQ(name, "EBADF"))
  515. #ifdef EBADF
  516.         return EBADF;
  517. #else
  518.         goto not_there;
  519. #endif
  520.         if (strEQ(name, "EBUSY"))
  521. #ifdef EBUSY
  522.         return EBUSY;
  523. #else
  524.         goto not_there;
  525. #endif
  526.         break;
  527.     case 'C':
  528.         if (strEQ(name, "ECHILD"))
  529. #ifdef ECHILD
  530.         return ECHILD;
  531. #else
  532.         goto not_there;
  533. #endif
  534.         if (strEQ(name, "ECHO"))
  535. #ifdef ECHO
  536.         return ECHO;
  537. #else
  538.         goto not_there;
  539. #endif
  540.         if (strEQ(name, "ECHOE"))
  541. #ifdef ECHOE
  542.         return ECHOE;
  543. #else
  544.         goto not_there;
  545. #endif
  546.         if (strEQ(name, "ECHOK"))
  547. #ifdef ECHOK
  548.         return ECHOK;
  549. #else
  550.         goto not_there;
  551. #endif
  552.         if (strEQ(name, "ECHONL"))
  553. #ifdef ECHONL
  554.         return ECHONL;
  555. #else
  556.         goto not_there;
  557. #endif
  558.         break;
  559.     case 'D':
  560.         if (strEQ(name, "EDEADLK"))
  561. #ifdef EDEADLK
  562.         return EDEADLK;
  563. #else
  564.         goto not_there;
  565. #endif
  566.         if (strEQ(name, "EDOM"))
  567. #ifdef EDOM
  568.         return EDOM;
  569. #else
  570.         goto not_there;
  571. #endif
  572.         break;
  573.     case 'E':
  574.         if (strEQ(name, "EEXIST"))
  575. #ifdef EEXIST
  576.         return EEXIST;
  577. #else
  578.         goto not_there;
  579. #endif
  580.         break;
  581.     case 'F':
  582.         if (strEQ(name, "EFAULT"))
  583. #ifdef EFAULT
  584.         return EFAULT;
  585. #else
  586.         goto not_there;
  587. #endif
  588.         if (strEQ(name, "EFBIG"))
  589. #ifdef EFBIG
  590.         return EFBIG;
  591. #else
  592.         goto not_there;
  593. #endif
  594.         break;
  595.     case 'I':
  596.         if (strEQ(name, "EINTR"))
  597. #ifdef EINTR
  598.         return EINTR;
  599. #else
  600.         goto not_there;
  601. #endif
  602.         if (strEQ(name, "EINVAL"))
  603. #ifdef EINVAL
  604.         return EINVAL;
  605. #else
  606.         goto not_there;
  607. #endif
  608.         if (strEQ(name, "EIO"))
  609. #ifdef EIO
  610.         return EIO;
  611. #else
  612.         goto not_there;
  613. #endif
  614.         if (strEQ(name, "EISDIR"))
  615. #ifdef EISDIR
  616.         return EISDIR;
  617. #else
  618.         goto not_there;
  619. #endif
  620.         break;
  621.     case 'M':
  622.         if (strEQ(name, "EMFILE"))
  623. #ifdef EMFILE
  624.         return EMFILE;
  625. #else
  626.         goto not_there;
  627. #endif
  628.         if (strEQ(name, "EMLINK"))
  629. #ifdef EMLINK
  630.         return EMLINK;
  631. #else
  632.         goto not_there;
  633. #endif
  634.         break;
  635.     case 'N':
  636.         if (strEQ(name, "ENOMEM"))
  637. #ifdef ENOMEM
  638.         return ENOMEM;
  639. #else
  640.         goto not_there;
  641. #endif
  642.         if (strEQ(name, "ENOSPC"))
  643. #ifdef ENOSPC
  644.         return ENOSPC;
  645. #else
  646.         goto not_there;
  647. #endif
  648.         if (strEQ(name, "ENOEXEC"))
  649. #ifdef ENOEXEC
  650.         return ENOEXEC;
  651. #else
  652.         goto not_there;
  653. #endif
  654.         if (strEQ(name, "ENOTTY"))
  655. #ifdef ENOTTY
  656.         return ENOTTY;
  657. #else
  658.         goto not_there;
  659. #endif
  660.         if (strEQ(name, "ENOTDIR"))
  661. #ifdef ENOTDIR
  662.         return ENOTDIR;
  663. #else
  664.         goto not_there;
  665. #endif
  666.         if (strEQ(name, "ENOTEMPTY"))
  667. #ifdef ENOTEMPTY
  668.         return ENOTEMPTY;
  669. #else
  670.         goto not_there;
  671. #endif
  672.         if (strEQ(name, "ENFILE"))
  673. #ifdef ENFILE
  674.         return ENFILE;
  675. #else
  676.         goto not_there;
  677. #endif
  678.         if (strEQ(name, "ENODEV"))
  679. #ifdef ENODEV
  680.         return ENODEV;
  681. #else
  682.         goto not_there;
  683. #endif
  684.         if (strEQ(name, "ENOENT"))
  685. #ifdef ENOENT
  686.         return ENOENT;
  687. #else
  688.         goto not_there;
  689. #endif
  690.         if (strEQ(name, "ENOLCK"))
  691. #ifdef ENOLCK
  692.         return ENOLCK;
  693. #else
  694.         goto not_there;
  695. #endif
  696.         if (strEQ(name, "ENOSYS"))
  697. #ifdef ENOSYS
  698.         return ENOSYS;
  699. #else
  700.         goto not_there;
  701. #endif
  702.         if (strEQ(name, "ENXIO"))
  703. #ifdef ENXIO
  704.         return ENXIO;
  705. #else
  706.         goto not_there;
  707. #endif
  708.         if (strEQ(name, "ENAMETOOLONG"))
  709. #ifdef ENAMETOOLONG
  710.         return ENAMETOOLONG;
  711. #else
  712.         goto not_there;
  713. #endif
  714.         break;
  715.     case 'O':
  716.         if (strEQ(name, "EOF"))
  717. #ifdef EOF
  718.         return EOF;
  719. #else
  720.         goto not_there;
  721. #endif
  722.         break;
  723.     case 'P':
  724.         if (strEQ(name, "EPERM"))
  725. #ifdef EPERM
  726.         return EPERM;
  727. #else
  728.         goto not_there;
  729. #endif
  730.         if (strEQ(name, "EPIPE"))
  731. #ifdef EPIPE
  732.         return EPIPE;
  733. #else
  734.         goto not_there;
  735. #endif
  736.         break;
  737.     case 'R':
  738.         if (strEQ(name, "ERANGE"))
  739. #ifdef ERANGE
  740.         return ERANGE;
  741. #else
  742.         goto not_there;
  743. #endif
  744.         if (strEQ(name, "EROFS"))
  745. #ifdef EROFS
  746.         return EROFS;
  747. #else
  748.         goto not_there;
  749. #endif
  750.         break;
  751.     case 'S':
  752.         if (strEQ(name, "ESPIPE"))
  753. #ifdef ESPIPE
  754.         return ESPIPE;
  755. #else
  756.         goto not_there;
  757. #endif
  758.         if (strEQ(name, "ESRCH"))
  759. #ifdef ESRCH
  760.         return ESRCH;
  761. #else
  762.         goto not_there;
  763. #endif
  764.         break;
  765.     case 'X':
  766.         if (strEQ(name, "EXIT_FAILURE"))
  767. #ifdef EXIT_FAILURE
  768.         return EXIT_FAILURE;
  769. #else
  770.         return 1;
  771. #endif
  772.         if (strEQ(name, "EXIT_SUCCESS"))
  773. #ifdef EXIT_SUCCESS
  774.         return EXIT_SUCCESS;
  775. #else
  776.         return 0;
  777. #endif
  778.         if (strEQ(name, "EXDEV"))
  779. #ifdef EXDEV
  780.         return EXDEV;
  781. #else
  782.         goto not_there;
  783. #endif
  784.         break;
  785.     }
  786.     if (strEQ(name, "E2BIG"))
  787. #ifdef E2BIG
  788.         return E2BIG;
  789. #else
  790.         goto not_there;
  791. #endif
  792.     break;
  793.     case 'F':
  794.     if (strnEQ(name, "FLT_", 4)) {
  795.         if (strEQ(name, "FLT_MAX"))
  796. #ifdef FLT_MAX
  797.         return FLT_MAX;
  798. #else
  799.         goto not_there;
  800. #endif
  801.         if (strEQ(name, "FLT_MIN"))
  802. #ifdef FLT_MIN
  803.         return FLT_MIN;
  804. #else
  805.         goto not_there;
  806. #endif
  807.         if (strEQ(name, "FLT_ROUNDS"))
  808. #ifdef FLT_ROUNDS
  809.         return FLT_ROUNDS;
  810. #else
  811.         goto not_there;
  812. #endif
  813.         if (strEQ(name, "FLT_DIG"))
  814. #ifdef FLT_DIG
  815.         return FLT_DIG;
  816. #else
  817.         goto not_there;
  818. #endif
  819.         if (strEQ(name, "FLT_EPSILON"))
  820. #ifdef FLT_EPSILON
  821.         return FLT_EPSILON;
  822. #else
  823.         goto not_there;
  824. #endif
  825.         if (strEQ(name, "FLT_MANT_DIG"))
  826. #ifdef FLT_MANT_DIG
  827.         return FLT_MANT_DIG;
  828. #else
  829.         goto not_there;
  830. #endif
  831.         if (strEQ(name, "FLT_MAX_10_EXP"))
  832. #ifdef FLT_MAX_10_EXP
  833.         return FLT_MAX_10_EXP;
  834. #else
  835.         goto not_there;
  836. #endif
  837.         if (strEQ(name, "FLT_MAX_EXP"))
  838. #ifdef FLT_MAX_EXP
  839.         return FLT_MAX_EXP;
  840. #else
  841.         goto not_there;
  842. #endif
  843.         if (strEQ(name, "FLT_MIN_10_EXP"))
  844. #ifdef FLT_MIN_10_EXP
  845.         return FLT_MIN_10_EXP;
  846. #else
  847.         goto not_there;
  848. #endif
  849.         if (strEQ(name, "FLT_MIN_EXP"))
  850. #ifdef FLT_MIN_EXP
  851.         return FLT_MIN_EXP;
  852. #else
  853.         goto not_there;
  854. #endif
  855.         if (strEQ(name, "FLT_RADIX"))
  856. #ifdef FLT_RADIX
  857.         return FLT_RADIX;
  858. #else
  859.         goto not_there;
  860. #endif
  861.         break;
  862.     }
  863.     if (strnEQ(name, "F_", 2)) {
  864.         if (strEQ(name, "F_DUPFD"))
  865. #ifdef F_DUPFD
  866.         return F_DUPFD;
  867. #else
  868.         goto not_there;
  869. #endif
  870.         if (strEQ(name, "F_GETFD"))
  871. #ifdef F_GETFD
  872.         return F_GETFD;
  873. #else
  874.         goto not_there;
  875. #endif
  876.         if (strEQ(name, "F_GETFL"))
  877. #ifdef F_GETFL
  878.         return F_GETFL;
  879. #else
  880.         goto not_there;
  881. #endif
  882.         if (strEQ(name, "F_GETLK"))
  883. #ifdef F_GETLK
  884.         return F_GETLK;
  885. #else
  886.         goto not_there;
  887. #endif
  888.         if (strEQ(name, "F_OK"))
  889. #ifdef F_OK
  890.         return F_OK;
  891. #else
  892.         goto not_there;
  893. #endif
  894.         if (strEQ(name, "F_RDLCK"))
  895. #ifdef F_RDLCK
  896.         return F_RDLCK;
  897. #else
  898.         goto not_there;
  899. #endif
  900.         if (strEQ(name, "F_SETFD"))
  901. #ifdef F_SETFD
  902.         return F_SETFD;
  903. #else
  904.         goto not_there;
  905. #endif
  906.         if (strEQ(name, "F_SETFL"))
  907. #ifdef F_SETFL
  908.         return F_SETFL;
  909. #else
  910.         goto not_there;
  911. #endif
  912.         if (strEQ(name, "F_SETLK"))
  913. #ifdef F_SETLK
  914.         return F_SETLK;
  915. #else
  916.         goto not_there;
  917. #endif
  918.         if (strEQ(name, "F_SETLKW"))
  919. #ifdef F_SETLKW
  920.         return F_SETLKW;
  921. #else
  922.         goto not_there;
  923. #endif
  924.         if (strEQ(name, "F_UNLCK"))
  925. #ifdef F_UNLCK
  926.         return F_UNLCK;
  927. #else
  928.         goto not_there;
  929. #endif
  930.         if (strEQ(name, "F_WRLCK"))
  931. #ifdef F_WRLCK
  932.         return F_WRLCK;
  933. #else
  934.         goto not_there;
  935. #endif
  936.         break;
  937.     }
  938.     if (strEQ(name, "FD_CLOEXEC"))
  939. #ifdef FD_CLOEXEC
  940.         return FD_CLOEXEC;
  941. #else
  942.         goto not_there;
  943. #endif
  944.     if (strEQ(name, "FILENAME_MAX"))
  945. #ifdef FILENAME_MAX
  946.         return FILENAME_MAX;
  947. #else
  948.         goto not_there;
  949. #endif
  950.     break;
  951.     case 'H':
  952.     if (strEQ(name, "HUGE_VAL"))
  953. #ifdef HUGE_VAL
  954.         return HUGE_VAL;
  955. #else
  956.         goto not_there;
  957. #endif
  958.     if (strEQ(name, "HUPCL"))
  959. #ifdef HUPCL
  960.         return HUPCL;
  961. #else
  962.         goto not_there;
  963. #endif
  964.     break;
  965.     case 'I':
  966.     if (strEQ(name, "INT_MAX"))
  967. #ifdef INT_MAX
  968.         return INT_MAX;
  969. #else
  970.         goto not_there;
  971. #endif
  972.     if (strEQ(name, "INT_MIN"))
  973. #ifdef INT_MIN
  974.         return INT_MIN;
  975. #else
  976.         goto not_there;
  977. #endif
  978.     if (strEQ(name, "ICANON"))
  979. #ifdef ICANON
  980.         return ICANON;
  981. #else
  982.         goto not_there;
  983. #endif
  984.     if (strEQ(name, "ICRNL"))
  985. #ifdef ICRNL
  986.         return ICRNL;
  987. #else
  988.         goto not_there;
  989. #endif
  990.     if (strEQ(name, "IEXTEN"))
  991. #ifdef IEXTEN
  992.         return IEXTEN;
  993. #else
  994.         goto not_there;
  995. #endif
  996.     if (strEQ(name, "IGNBRK"))
  997. #ifdef IGNBRK
  998.         return IGNBRK;
  999. #else
  1000.         goto not_there;
  1001. #endif
  1002.     if (strEQ(name, "IGNCR"))
  1003. #ifdef IGNCR
  1004.         return IGNCR;
  1005. #else
  1006.         goto not_there;
  1007. #endif
  1008.     if (strEQ(name, "IGNPAR"))
  1009. #ifdef IGNPAR
  1010.         return IGNPAR;
  1011. #else
  1012.         goto not_there;
  1013. #endif
  1014.     if (strEQ(name, "INLCR"))
  1015. #ifdef INLCR
  1016.         return INLCR;
  1017. #else
  1018.         goto not_there;
  1019. #endif
  1020.     if (strEQ(name, "INPCK"))
  1021. #ifdef INPCK
  1022.         return INPCK;
  1023. #else
  1024.         goto not_there;
  1025. #endif
  1026.     if (strEQ(name, "ISIG"))
  1027. #ifdef ISIG
  1028.         return ISIG;
  1029. #else
  1030.         goto not_there;
  1031. #endif
  1032.     if (strEQ(name, "ISTRIP"))
  1033. #ifdef ISTRIP
  1034.         return ISTRIP;
  1035. #else
  1036.         goto not_there;
  1037. #endif
  1038.     if (strEQ(name, "IXOFF"))
  1039. #ifdef IXOFF
  1040.         return IXOFF;
  1041. #else
  1042.         goto not_there;
  1043. #endif
  1044.     if (strEQ(name, "IXON"))
  1045. #ifdef IXON
  1046.         return IXON;
  1047. #else
  1048.         goto not_there;
  1049. #endif
  1050.     break;
  1051.     case 'L':
  1052.     if (strnEQ(name, "LC_", 3)) {
  1053.         if (strEQ(name, "LC_ALL"))
  1054. #ifdef LC_ALL
  1055.         return LC_ALL;
  1056. #else
  1057.         goto not_there;
  1058. #endif
  1059.         if (strEQ(name, "LC_COLLATE"))
  1060. #ifdef LC_COLLATE
  1061.         return LC_COLLATE;
  1062. #else
  1063.         goto not_there;
  1064. #endif
  1065.         if (strEQ(name, "LC_CTYPE"))
  1066. #ifdef LC_CTYPE
  1067.         return LC_CTYPE;
  1068. #else
  1069.         goto not_there;
  1070. #endif
  1071.         if (strEQ(name, "LC_MONETARY"))
  1072. #ifdef LC_MONETARY
  1073.         return LC_MONETARY;
  1074. #else
  1075.         goto not_there;
  1076. #endif
  1077.         if (strEQ(name, "LC_NUMERIC"))
  1078. #ifdef LC_NUMERIC
  1079.         return LC_NUMERIC;
  1080. #else
  1081.         goto not_there;
  1082. #endif
  1083.         if (strEQ(name, "LC_TIME"))
  1084. #ifdef LC_TIME
  1085.         return LC_TIME;
  1086. #else
  1087.         goto not_there;
  1088. #endif
  1089.         break;
  1090.     }
  1091.     if (strnEQ(name, "LDBL_", 5)) {
  1092.         if (strEQ(name, "LDBL_MAX"))
  1093. #ifdef LDBL_MAX
  1094.         return LDBL_MAX;
  1095. #else
  1096.         goto not_there;
  1097. #endif
  1098.         if (strEQ(name, "LDBL_MIN"))
  1099. #ifdef LDBL_MIN
  1100.         return LDBL_MIN;
  1101. #else
  1102.         goto not_there;
  1103. #endif
  1104.         if (strEQ(name, "LDBL_DIG"))
  1105. #ifdef LDBL_DIG
  1106.         return LDBL_DIG;
  1107. #else
  1108.         goto not_there;
  1109. #endif
  1110.         if (strEQ(name, "LDBL_EPSILON"))
  1111. #ifdef LDBL_EPSILON
  1112.         return LDBL_EPSILON;
  1113. #else
  1114.         goto not_there;
  1115. #endif
  1116.         if (strEQ(name, "LDBL_MANT_DIG"))
  1117. #ifdef LDBL_MANT_DIG
  1118.         return LDBL_MANT_DIG;
  1119. #else
  1120.         goto not_there;
  1121. #endif
  1122.         if (strEQ(name, "LDBL_MAX_10_EXP"))
  1123. #ifdef LDBL_MAX_10_EXP
  1124.         return LDBL_MAX_10_EXP;
  1125. #else
  1126.         goto not_there;
  1127. #endif
  1128.         if (strEQ(name, "LDBL_MAX_EXP"))
  1129. #ifdef LDBL_MAX_EXP
  1130.         return LDBL_MAX_EXP;
  1131. #else
  1132.         goto not_there;
  1133. #endif
  1134.         if (strEQ(name, "LDBL_MIN_10_EXP"))
  1135. #ifdef LDBL_MIN_10_EXP
  1136.         return LDBL_MIN_10_EXP;
  1137. #else
  1138.         goto not_there;
  1139. #endif
  1140.         if (strEQ(name, "LDBL_MIN_EXP"))
  1141. #ifdef LDBL_MIN_EXP
  1142.         return LDBL_MIN_EXP;
  1143. #else
  1144.         goto not_there;
  1145. #endif
  1146.         break;
  1147.     }
  1148.     if (strnEQ(name, "L_", 2)) {
  1149.         if (strEQ(name, "L_ctermid"))
  1150. #ifdef L_ctermid
  1151.         return L_ctermid;
  1152. #else
  1153.         goto not_there;
  1154. #endif
  1155.         if (strEQ(name, "L_cuserid"))
  1156. #ifdef L_cuserid
  1157.         return L_cuserid;
  1158. #else
  1159.         goto not_there;
  1160. #endif
  1161.         if (strEQ(name, "L_tmpname"))
  1162. #ifdef L_tmpname
  1163.         return L_tmpname;
  1164. #else
  1165.         goto not_there;
  1166. #endif
  1167.         break;
  1168.     }
  1169.     if (strEQ(name, "LONG_MAX"))
  1170. #ifdef LONG_MAX
  1171.         return LONG_MAX;
  1172. #else
  1173.         goto not_there;
  1174. #endif
  1175.     if (strEQ(name, "LONG_MIN"))
  1176. #ifdef LONG_MIN
  1177.         return LONG_MIN;
  1178. #else
  1179.         goto not_there;
  1180. #endif
  1181.     if (strEQ(name, "LINK_MAX"))
  1182. #ifdef LINK_MAX
  1183.         return LINK_MAX;
  1184. #else
  1185.         goto not_there;
  1186. #endif
  1187.     break;
  1188.     case 'M':
  1189.     if (strEQ(name, "MAX_CANON"))
  1190. #ifdef MAX_CANON
  1191.         return MAX_CANON;
  1192. #else
  1193.         goto not_there;
  1194. #endif
  1195.     if (strEQ(name, "MAX_INPUT"))
  1196. #ifdef MAX_INPUT
  1197.         return MAX_INPUT;
  1198. #else
  1199.         goto not_there;
  1200. #endif
  1201.     if (strEQ(name, "MB_CUR_MAX"))
  1202. #ifdef MB_CUR_MAX
  1203.         return MB_CUR_MAX;
  1204. #else
  1205.         goto not_there;
  1206. #endif
  1207.     if (strEQ(name, "MB_LEN_MAX"))
  1208. #ifdef MB_LEN_MAX
  1209.         return MB_LEN_MAX;
  1210. #else
  1211.         goto not_there;
  1212. #endif
  1213.     break;
  1214.     case 'N':
  1215.     if (strEQ(name, "NULL")) return 0;
  1216.     if (strEQ(name, "NAME_MAX"))
  1217. #ifdef NAME_MAX
  1218.         return NAME_MAX;
  1219. #else
  1220.         goto not_there;
  1221. #endif
  1222.     if (strEQ(name, "NCCS"))
  1223. #ifdef NCCS
  1224.         return NCCS;
  1225. #else
  1226.         goto not_there;
  1227. #endif
  1228.     if (strEQ(name, "NGROUPS_MAX"))
  1229. #ifdef NGROUPS_MAX
  1230.         return NGROUPS_MAX;
  1231. #else
  1232.         goto not_there;
  1233. #endif
  1234.     if (strEQ(name, "NOFLSH"))
  1235. #ifdef NOFLSH
  1236.         return NOFLSH;
  1237. #else
  1238.         goto not_there;
  1239. #endif
  1240.     break;
  1241.     case 'O':
  1242.     if (strnEQ(name, "O_", 2)) {
  1243.         if (strEQ(name, "O_APPEND"))
  1244. #ifdef O_APPEND
  1245.         return O_APPEND;
  1246. #else
  1247.         goto not_there;
  1248. #endif
  1249.         if (strEQ(name, "O_CREAT"))
  1250. #ifdef O_CREAT
  1251.         return O_CREAT;
  1252. #else
  1253.         goto not_there;
  1254. #endif
  1255.         if (strEQ(name, "O_TRUNC"))
  1256. #ifdef O_TRUNC
  1257.         return O_TRUNC;
  1258. #else
  1259.         goto not_there;
  1260. #endif
  1261.         if (strEQ(name, "O_RDONLY"))
  1262. #ifdef O_RDONLY
  1263.         return O_RDONLY;
  1264. #else
  1265.         goto not_there;
  1266. #endif
  1267.         if (strEQ(name, "O_RDWR"))
  1268. #ifdef O_RDWR
  1269.         return O_RDWR;
  1270. #else
  1271.         goto not_there;
  1272. #endif
  1273.         if (strEQ(name, "O_WRONLY"))
  1274. #ifdef O_WRONLY
  1275.         return O_WRONLY;
  1276. #else
  1277.         goto not_there;
  1278. #endif
  1279.         if (strEQ(name, "O_EXCL"))
  1280. #ifdef O_EXCL
  1281.         return O_EXCL;
  1282. #else
  1283.         goto not_there;
  1284. #endif
  1285.         if (strEQ(name, "O_NOCTTY"))
  1286. #ifdef O_NOCTTY
  1287.         return O_NOCTTY;
  1288. #else
  1289.         goto not_there;
  1290. #endif
  1291.         if (strEQ(name, "O_NONBLOCK"))
  1292. #ifdef O_NONBLOCK
  1293.         return O_NONBLOCK;
  1294. #else
  1295.         goto not_there;
  1296. #endif
  1297.         if (strEQ(name, "O_ACCMODE"))
  1298. #ifdef O_ACCMODE
  1299.         return O_ACCMODE;
  1300. #else
  1301.         goto not_there;
  1302. #endif
  1303.         break;
  1304.     }
  1305.     if (strEQ(name, "OPEN_MAX"))
  1306. #ifdef OPEN_MAX
  1307.         return OPEN_MAX;
  1308. #else
  1309.         goto not_there;
  1310. #endif
  1311.     if (strEQ(name, "OPOST"))
  1312. #ifdef OPOST
  1313.         return OPOST;
  1314. #else
  1315.         goto not_there;
  1316. #endif
  1317.     break;
  1318.     case 'P':
  1319.     if (strEQ(name, "PATH_MAX"))
  1320. #ifdef PATH_MAX
  1321.         return PATH_MAX;
  1322. #else
  1323.         goto not_there;
  1324. #endif
  1325.     if (strEQ(name, "PARENB"))
  1326. #ifdef PARENB
  1327.         return PARENB;
  1328. #else
  1329.         goto not_there;
  1330. #endif
  1331.     if (strEQ(name, "PARMRK"))
  1332. #ifdef PARMRK
  1333.         return PARMRK;
  1334. #else
  1335.         goto not_there;
  1336. #endif
  1337.     if (strEQ(name, "PARODD"))
  1338. #ifdef PARODD
  1339.         return PARODD;
  1340. #else
  1341.         goto not_there;
  1342. #endif
  1343.     if (strEQ(name, "PIPE_BUF"))
  1344. #ifdef PIPE_BUF
  1345.         return PIPE_BUF;
  1346. #else
  1347.         goto not_there;
  1348. #endif
  1349.     break;
  1350.     case 'R':
  1351.     if (strEQ(name, "RAND_MAX"))
  1352. #ifdef RAND_MAX
  1353.         return RAND_MAX;
  1354. #else
  1355.         goto not_there;
  1356. #endif
  1357.     if (strEQ(name, "R_OK"))
  1358. #ifdef R_OK
  1359.         return R_OK;
  1360. #else
  1361.         goto not_there;
  1362. #endif
  1363.     break;
  1364.     case 'S':
  1365.     if (strnEQ(name, "SIG", 3)) {
  1366.         if (name[3] == '_') {
  1367.         if (strEQ(name, "SIG_BLOCK"))
  1368. #ifdef SIG_BLOCK
  1369.             return SIG_BLOCK;
  1370. #else
  1371.             goto not_there;
  1372. #endif
  1373. #ifdef SIG_DFL
  1374.         if (strEQ(name, "SIG_DFL")) return (int)SIG_DFL;
  1375. #endif
  1376. #ifdef SIG_ERR
  1377.         if (strEQ(name, "SIG_ERR")) return (int)SIG_ERR;
  1378. #endif
  1379. #ifdef SIG_IGN
  1380.         if (strEQ(name, "SIG_IGN")) return (int)SIG_IGN;
  1381. #endif
  1382.         if (strEQ(name, "SIG_SETMASK"))
  1383. #ifdef SIG_SETMASK
  1384.             return SIG_SETMASK;
  1385. #else
  1386.             goto not_there;
  1387. #endif
  1388.         if (strEQ(name, "SIG_UNBLOCK"))
  1389. #ifdef SIG_UNBLOCK
  1390.             return SIG_UNBLOCK;
  1391. #else
  1392.             goto not_there;
  1393. #endif
  1394.         break;
  1395.         }
  1396.         if (strEQ(name, "SIGABRT"))
  1397. #ifdef SIGABRT
  1398.         return SIGABRT;
  1399. #else
  1400.         goto not_there;
  1401. #endif
  1402.         if (strEQ(name, "SIGALRM"))
  1403. #ifdef SIGALRM
  1404.         return SIGALRM;
  1405. #else
  1406.         goto not_there;
  1407. #endif
  1408.         if (strEQ(name, "SIGCHLD"))
  1409. #ifdef SIGCHLD
  1410.         return SIGCHLD;
  1411. #else
  1412.         goto not_there;
  1413. #endif
  1414.         if (strEQ(name, "SIGCONT"))
  1415. #ifdef SIGCONT
  1416.         return SIGCONT;
  1417. #else
  1418.         goto not_there;
  1419. #endif
  1420.         if (strEQ(name, "SIGFPE"))
  1421. #ifdef SIGFPE
  1422.         return SIGFPE;
  1423. #else
  1424.         goto not_there;
  1425. #endif
  1426.         if (strEQ(name, "SIGHUP"))
  1427. #ifdef SIGHUP
  1428.         return SIGHUP;
  1429. #else
  1430.         goto not_there;
  1431. #endif
  1432.         if (strEQ(name, "SIGILL"))
  1433. #ifdef SIGILL
  1434.         return SIGILL;
  1435. #else
  1436.         goto not_there;
  1437. #endif
  1438.         if (strEQ(name, "SIGINT"))
  1439. #ifdef SIGINT
  1440.         return SIGINT;
  1441. #else
  1442.         goto not_there;
  1443. #endif
  1444.         if (strEQ(name, "SIGKILL"))
  1445. #ifdef SIGKILL
  1446.         return SIGKILL;
  1447. #else
  1448.         goto not_there;
  1449. #endif
  1450.         if (strEQ(name, "SIGPIPE"))
  1451. #ifdef SIGPIPE
  1452.         return SIGPIPE;
  1453. #else
  1454.         goto not_there;
  1455. #endif
  1456.         if (strEQ(name, "SIGQUIT"))
  1457. #ifdef SIGQUIT
  1458.         return SIGQUIT;
  1459. #else
  1460.         goto not_there;
  1461. #endif
  1462.         if (strEQ(name, "SIGSEGV"))
  1463. #ifdef SIGSEGV
  1464.         return SIGSEGV;
  1465. #else
  1466.         goto not_there;
  1467. #endif
  1468.         if (strEQ(name, "SIGSTOP"))
  1469. #ifdef SIGSTOP
  1470.         return SIGSTOP;
  1471. #else
  1472.         goto not_there;
  1473. #endif
  1474.         if (strEQ(name, "SIGTERM"))
  1475. #ifdef SIGTERM
  1476.         return SIGTERM;
  1477. #else
  1478.         goto not_there;
  1479. #endif
  1480.         if (strEQ(name, "SIGTSTP"))
  1481. #ifdef SIGTSTP
  1482.         return SIGTSTP;
  1483. #else
  1484.         goto not_there;
  1485. #endif
  1486.         if (strEQ(name, "SIGTTIN"))
  1487. #ifdef SIGTTIN
  1488.         return SIGTTIN;
  1489. #else
  1490.         goto not_there;
  1491. #endif
  1492.         if (strEQ(name, "SIGTTOU"))
  1493. #ifdef SIGTTOU
  1494.         return SIGTTOU;
  1495. #else
  1496.         goto not_there;
  1497. #endif
  1498.         if (strEQ(name, "SIGUSR1"))
  1499. #ifdef SIGUSR1
  1500.         return SIGUSR1;
  1501. #else
  1502.         goto not_there;
  1503. #endif
  1504.         if (strEQ(name, "SIGUSR2"))
  1505. #ifdef SIGUSR2
  1506.         return SIGUSR2;
  1507. #else
  1508.         goto not_there;
  1509. #endif
  1510.         break;
  1511.     }
  1512.     if (name[1] == '_') {
  1513.         if (strEQ(name, "S_ISGID"))
  1514. #ifdef S_ISGID
  1515.         return S_ISGID;
  1516. #else
  1517.         goto not_there;
  1518. #endif
  1519.         if (strEQ(name, "S_ISUID"))
  1520. #ifdef S_ISUID
  1521.         return S_ISUID;
  1522. #else
  1523.         goto not_there;
  1524. #endif
  1525.         if (strEQ(name, "S_IRGRP"))
  1526. #ifdef S_IRGRP
  1527.         return S_IRGRP;
  1528. #else
  1529.         goto not_there;
  1530. #endif
  1531.         if (strEQ(name, "S_IROTH"))
  1532. #ifdef S_IROTH
  1533.         return S_IROTH;
  1534. #else
  1535.         goto not_there;
  1536. #endif
  1537.         if (strEQ(name, "S_IRUSR"))
  1538. #ifdef S_IRUSR
  1539.         return S_IRUSR;
  1540. #else
  1541.         goto not_there;
  1542. #endif
  1543.         if (strEQ(name, "S_IRWXG"))
  1544. #ifdef S_IRWXG
  1545.         return S_IRWXG;
  1546. #else
  1547.         goto not_there;
  1548. #endif
  1549.         if (strEQ(name, "S_IRWXO"))
  1550. #ifdef S_IRWXO
  1551.         return S_IRWXO;
  1552. #else
  1553.         goto not_there;
  1554. #endif
  1555.         if (strEQ(name, "S_IRWXU"))
  1556. #ifdef S_IRWXU
  1557.         return S_IRWXU;
  1558. #else
  1559.         goto not_there;
  1560. #endif
  1561.         if (strEQ(name, "S_IWGRP"))
  1562. #ifdef S_IWGRP
  1563.         return S_IWGRP;
  1564. #else
  1565.         goto not_there;
  1566. #endif
  1567.         if (strEQ(name, "S_IWOTH"))
  1568. #ifdef S_IWOTH
  1569.         return S_IWOTH;
  1570. #else
  1571.         goto not_there;
  1572. #endif
  1573.         if (strEQ(name, "S_IWUSR"))
  1574. #ifdef S_IWUSR
  1575.         return S_IWUSR;
  1576. #else
  1577.         goto not_there;
  1578. #endif
  1579.         if (strEQ(name, "S_IXGRP"))
  1580. #ifdef S_IXGRP
  1581.         return S_IXGRP;
  1582. #else
  1583.         goto not_there;
  1584. #endif
  1585.         if (strEQ(name, "S_IXOTH"))
  1586. #ifdef S_IXOTH
  1587.         return S_IXOTH;
  1588. #else
  1589.         goto not_there;
  1590. #endif
  1591.         if (strEQ(name, "S_IXUSR"))
  1592. #ifdef S_IXUSR
  1593.         return S_IXUSR;
  1594. #else
  1595.         goto not_there;
  1596. #endif
  1597.         errno = EAGAIN;        /* the following aren't constants */
  1598. #ifdef S_ISBLK
  1599.         if (strEQ(name, "S_ISBLK")) return S_ISBLK(arg);
  1600. #endif
  1601. #ifdef S_ISCHR
  1602.         if (strEQ(name, "S_ISCHR")) return S_ISCHR(arg);
  1603. #endif
  1604. #ifdef S_ISDIR
  1605.         if (strEQ(name, "S_ISDIR")) return S_ISDIR(arg);
  1606. #endif
  1607. #ifdef S_ISFIFO
  1608.         if (strEQ(name, "S_ISFIFO")) return S_ISFIFO(arg);
  1609. #endif
  1610. #ifdef S_ISREG
  1611.         if (strEQ(name, "S_ISREG")) return S_ISREG(arg);
  1612. #endif
  1613.         break;
  1614.     }
  1615.     if (strEQ(name, "SEEK_CUR"))
  1616. #ifdef SEEK_CUR
  1617.         return SEEK_CUR;
  1618. #else
  1619.         goto not_there;
  1620. #endif
  1621.     if (strEQ(name, "SEEK_END"))
  1622. #ifdef SEEK_END
  1623.         return SEEK_END;
  1624. #else
  1625.         goto not_there;
  1626. #endif
  1627.     if (strEQ(name, "SEEK_SET"))
  1628. #ifdef SEEK_SET
  1629.         return SEEK_SET;
  1630. #else
  1631.         goto not_there;
  1632. #endif
  1633.     if (strEQ(name, "STREAM_MAX"))
  1634. #ifdef STREAM_MAX
  1635.         return STREAM_MAX;
  1636. #else
  1637.         goto not_there;
  1638. #endif
  1639.     if (strEQ(name, "SHRT_MAX"))
  1640. #ifdef SHRT_MAX
  1641.         return SHRT_MAX;
  1642. #else
  1643.         goto not_there;
  1644. #endif
  1645.     if (strEQ(name, "SHRT_MIN"))
  1646. #ifdef SHRT_MIN
  1647.         return SHRT_MIN;
  1648. #else
  1649.         goto not_there;
  1650. #endif
  1651.     if (strEQ(name, "SA_NOCLDSTOP"))
  1652. #ifdef SA_NOCLDSTOP
  1653.         return SA_NOCLDSTOP;
  1654. #else
  1655.         goto not_there;
  1656. #endif
  1657.     if (strEQ(name, "SCHAR_MAX"))
  1658. #ifdef SCHAR_MAX
  1659.         return SCHAR_MAX;
  1660. #else
  1661.         goto not_there;
  1662. #endif
  1663.     if (strEQ(name, "SCHAR_MIN"))
  1664. #ifdef SCHAR_MIN
  1665.         return SCHAR_MIN;
  1666. #else
  1667.         goto not_there;
  1668. #endif
  1669.     if (strEQ(name, "SSIZE_MAX"))
  1670. #ifdef SSIZE_MAX
  1671.         return SSIZE_MAX;
  1672. #else
  1673.         goto not_there;
  1674. #endif
  1675.     if (strEQ(name, "STDIN_FILENO"))
  1676. #ifdef STDIN_FILENO
  1677.         return STDIN_FILENO;
  1678. #else
  1679.         goto not_there;
  1680. #endif
  1681.     if (strEQ(name, "STDOUT_FILENO"))
  1682. #ifdef STDOUT_FILENO
  1683.         return STDOUT_FILENO;
  1684. #else
  1685.         goto not_there;
  1686. #endif
  1687.     if (strEQ(name, "STRERR_FILENO"))
  1688. #ifdef STRERR_FILENO
  1689.         return STRERR_FILENO;
  1690. #else
  1691.         goto not_there;
  1692. #endif
  1693.     break;
  1694.     case 'T':
  1695.     if (strEQ(name, "TCIFLUSH"))
  1696. #ifdef TCIFLUSH
  1697.         return TCIFLUSH;
  1698. #else
  1699.         goto not_there;
  1700. #endif
  1701.     if (strEQ(name, "TCIOFF"))
  1702. #ifdef TCIOFF
  1703.         return TCIOFF;
  1704. #else
  1705.         goto not_there;
  1706. #endif
  1707.     if (strEQ(name, "TCIOFLUSH"))
  1708. #ifdef TCIOFLUSH
  1709.         return TCIOFLUSH;
  1710. #else
  1711.         goto not_there;
  1712. #endif
  1713.     if (strEQ(name, "TCION"))
  1714. #ifdef TCION
  1715.         return TCION;
  1716. #else
  1717.         goto not_there;
  1718. #endif
  1719.     if (strEQ(name, "TCOFLUSH"))
  1720. #ifdef TCOFLUSH
  1721.         return TCOFLUSH;
  1722. #else
  1723.         goto not_there;
  1724. #endif
  1725.     if (strEQ(name, "TCOOFF"))
  1726. #ifdef TCOOFF
  1727.         return TCOOFF;
  1728. #else
  1729.         goto not_there;
  1730. #endif
  1731.     if (strEQ(name, "TCOON"))
  1732. #ifdef TCOON
  1733.         return TCOON;
  1734. #else
  1735.         goto not_there;
  1736. #endif
  1737.     if (strEQ(name, "TCSADRAIN"))
  1738. #ifdef TCSADRAIN
  1739.         return TCSADRAIN;
  1740. #else
  1741.         goto not_there;
  1742. #endif
  1743.     if (strEQ(name, "TCSAFLUSH"))
  1744. #ifdef TCSAFLUSH
  1745.         return TCSAFLUSH;
  1746. #else
  1747.         goto not_there;
  1748. #endif
  1749.     if (strEQ(name, "TCSANOW"))
  1750. #ifdef TCSANOW
  1751.         return TCSANOW;
  1752. #else
  1753.         goto not_there;
  1754. #endif
  1755.     if (strEQ(name, "TMP_MAX"))
  1756. #ifdef TMP_MAX
  1757.         return TMP_MAX;
  1758. #else
  1759.         goto not_there;
  1760. #endif
  1761.     if (strEQ(name, "TOSTOP"))
  1762. #ifdef TOSTOP
  1763.         return TOSTOP;
  1764. #else
  1765.         goto not_there;
  1766. #endif
  1767.     if (strEQ(name, "TZNAME_MAX"))
  1768. #ifdef TZNAME_MAX
  1769.         return TZNAME_MAX;
  1770. #else
  1771.         goto not_there;
  1772. #endif
  1773.     break;
  1774.     case 'U':
  1775.     if (strEQ(name, "UCHAR_MAX"))
  1776. #ifdef UCHAR_MAX
  1777.         return UCHAR_MAX;
  1778. #else
  1779.         goto not_there;
  1780. #endif
  1781.     if (strEQ(name, "UINT_MAX"))
  1782. #ifdef UINT_MAX
  1783.         return UINT_MAX;
  1784. #else
  1785.         goto not_there;
  1786. #endif
  1787.     if (strEQ(name, "ULONG_MAX"))
  1788. #ifdef ULONG_MAX
  1789.         return ULONG_MAX;
  1790. #else
  1791.         goto not_there;
  1792. #endif
  1793.     if (strEQ(name, "USHRT_MAX"))
  1794. #ifdef USHRT_MAX
  1795.         return USHRT_MAX;
  1796. #else
  1797.         goto not_there;
  1798. #endif
  1799.     break;
  1800.     case 'V':
  1801.     if (strEQ(name, "VEOF"))
  1802. #ifdef VEOF
  1803.         return VEOF;
  1804. #else
  1805.         goto not_there;
  1806. #endif
  1807.     if (strEQ(name, "VEOL"))
  1808. #ifdef VEOL
  1809.         return VEOL;
  1810. #else
  1811.         goto not_there;
  1812. #endif
  1813.     if (strEQ(name, "VERASE"))
  1814. #ifdef VERASE
  1815.         return VERASE;
  1816. #else
  1817.         goto not_there;
  1818. #endif
  1819.     if (strEQ(name, "VINTR"))
  1820. #ifdef VINTR
  1821.         return VINTR;
  1822. #else
  1823.         goto not_there;
  1824. #endif
  1825.     if (strEQ(name, "VKILL"))
  1826. #ifdef VKILL
  1827.         return VKILL;
  1828. #else
  1829.         goto not_there;
  1830. #endif
  1831.     if (strEQ(name, "VMIN"))
  1832. #ifdef VMIN
  1833.         return VMIN;
  1834. #else
  1835.         goto not_there;
  1836. #endif
  1837.     if (strEQ(name, "VQUIT"))
  1838. #ifdef VQUIT
  1839.         return VQUIT;
  1840. #else
  1841.         goto not_there;
  1842. #endif
  1843.     if (strEQ(name, "VSTART"))
  1844. #ifdef VSTART
  1845.         return VSTART;
  1846. #else
  1847.         goto not_there;
  1848. #endif
  1849.     if (strEQ(name, "VSTOP"))
  1850. #ifdef VSTOP
  1851.         return VSTOP;
  1852. #else
  1853.         goto not_there;
  1854. #endif
  1855.     if (strEQ(name, "VSUSP"))
  1856. #ifdef VSUSP
  1857.         return VSUSP;
  1858. #else
  1859.         goto not_there;
  1860. #endif
  1861.     if (strEQ(name, "VTIME"))
  1862. #ifdef VTIME
  1863.         return VTIME;
  1864. #else
  1865.         goto not_there;
  1866. #endif
  1867.     break;
  1868.     case 'W':
  1869.     if (strEQ(name, "W_OK"))
  1870. #ifdef W_OK
  1871.         return W_OK;
  1872. #else
  1873.         goto not_there;
  1874. #endif
  1875.     if (strEQ(name, "WNOHANG"))
  1876. #ifdef WNOHANG
  1877.         return WNOHANG;
  1878. #else
  1879.         goto not_there;
  1880. #endif
  1881.     if (strEQ(name, "WUNTRACED"))
  1882. #ifdef WUNTRACED
  1883.         return WUNTRACED;
  1884. #else
  1885.         goto not_there;
  1886. #endif
  1887.     errno = EAGAIN;        /* the following aren't constants */
  1888. #ifdef WEXITSTATUS
  1889.     if (strEQ(name, "WEXITSTATUS")) return WEXITSTATUS(arg);
  1890. #endif
  1891. #ifdef WIFEXITED
  1892.     if (strEQ(name, "WIFEXITED")) return WIFEXITED(arg);
  1893. #endif
  1894. #ifdef WIFSIGNALED
  1895.     if (strEQ(name, "WIFSIGNALED")) return WIFSIGNALED(arg);
  1896. #endif
  1897. #ifdef WIFSTOPPED
  1898.     if (strEQ(name, "WIFSTOPPED")) return WIFSTOPPED(arg);
  1899. #endif
  1900. #ifdef WSTOPSIG
  1901.     if (strEQ(name, "WSTOPSIG")) return WSTOPSIG(arg);
  1902. #endif
  1903. #ifdef WTERMSIG
  1904.     if (strEQ(name, "WTERMSIG")) return WTERMSIG(arg);
  1905. #endif
  1906.     break;
  1907.     case 'X':
  1908.     if (strEQ(name, "X_OK"))
  1909. #ifdef X_OK
  1910.         return X_OK;
  1911. #else
  1912.         goto not_there;
  1913. #endif
  1914.     break;
  1915.     case '_':
  1916.     if (strnEQ(name, "_PC_", 4)) {
  1917.         if (strEQ(name, "_PC_CHOWN_RESTRICTED"))
  1918. #ifdef _PC_CHOWN_RESTRICTED
  1919.         return _PC_CHOWN_RESTRICTED;
  1920. #else
  1921.         goto not_there;
  1922. #endif
  1923.         if (strEQ(name, "_PC_LINK_MAX"))
  1924. #ifdef _PC_LINK_MAX
  1925.         return _PC_LINK_MAX;
  1926. #else
  1927.         goto not_there;
  1928. #endif
  1929.         if (strEQ(name, "_PC_MAX_CANON"))
  1930. #ifdef _PC_MAX_CANON
  1931.         return _PC_MAX_CANON;
  1932. #else
  1933.         goto not_there;
  1934. #endif
  1935.         if (strEQ(name, "_PC_MAX_INPUT"))
  1936. #ifdef _PC_MAX_INPUT
  1937.         return _PC_MAX_INPUT;
  1938. #else
  1939.         goto not_there;
  1940. #endif
  1941.         if (strEQ(name, "_PC_NAME_MAX"))
  1942. #ifdef _PC_NAME_MAX
  1943.         return _PC_NAME_MAX;
  1944. #else
  1945.         goto not_there;
  1946. #endif
  1947.         if (strEQ(name, "_PC_NO_TRUNC"))
  1948. #ifdef _PC_NO_TRUNC
  1949.         return _PC_NO_TRUNC;
  1950. #else
  1951.         goto not_there;
  1952. #endif
  1953.         if (strEQ(name, "_PC_PATH_MAX"))
  1954. #ifdef _PC_PATH_MAX
  1955.         return _PC_PATH_MAX;
  1956. #else
  1957.         goto not_there;
  1958. #endif
  1959.         if (strEQ(name, "_PC_PIPE_BUF"))
  1960. #ifdef _PC_PIPE_BUF
  1961.         return _PC_PIPE_BUF;
  1962. #else
  1963.         goto not_there;
  1964. #endif
  1965.         if (strEQ(name, "_PC_VDISABLE"))
  1966. #ifdef _PC_VDISABLE
  1967.         return _PC_VDISABLE;
  1968. #else
  1969.         goto not_there;
  1970. #endif
  1971.         break;
  1972.     }
  1973.     if (strnEQ(name, "_POSIX_", 7)) {
  1974.         if (strEQ(name, "_POSIX_ARG_MAX"))
  1975. #ifdef _POSIX_ARG_MAX
  1976.         return _POSIX_ARG_MAX;
  1977. #else
  1978.         return 0;
  1979. #endif
  1980.         if (strEQ(name, "_POSIX_CHILD_MAX"))
  1981. #ifdef _POSIX_CHILD_MAX
  1982.         return _POSIX_CHILD_MAX;
  1983. #else
  1984.         return 0;
  1985. #endif
  1986.         if (strEQ(name, "_POSIX_CHOWN_RESTRICTED"))
  1987. #ifdef _POSIX_CHOWN_RESTRICTED
  1988.         return _POSIX_CHOWN_RESTRICTED;
  1989. #else
  1990.         return 0;
  1991. #endif
  1992.         if (strEQ(name, "_POSIX_JOB_CONTROL"))
  1993. #ifdef _POSIX_JOB_CONTROL
  1994.         return _POSIX_JOB_CONTROL;
  1995. #else
  1996.         return 0;
  1997. #endif
  1998.         if (strEQ(name, "_POSIX_LINK_MAX"))
  1999. #ifdef _POSIX_LINK_MAX
  2000.         return _POSIX_LINK_MAX;
  2001. #else
  2002.         return 0;
  2003. #endif
  2004.         if (strEQ(name, "_POSIX_MAX_CANON"))
  2005. #ifdef _POSIX_MAX_CANON
  2006.         return _POSIX_MAX_CANON;
  2007. #else
  2008.         return 0;
  2009. #endif
  2010.         if (strEQ(name, "_POSIX_MAX_INPUT"))
  2011. #ifdef _POSIX_MAX_INPUT
  2012.         return _POSIX_MAX_INPUT;
  2013. #else
  2014.         return 0;
  2015. #endif
  2016.         if (strEQ(name, "_POSIX_NAME_MAX"))
  2017. #ifdef _POSIX_NAME_MAX
  2018.         return _POSIX_NAME_MAX;
  2019. #else
  2020.         return 0;
  2021. #endif
  2022.         if (strEQ(name, "_POSIX_NGROUPS_MAX"))
  2023. #ifdef _POSIX_NGROUPS_MAX
  2024.         return _POSIX_NGROUPS_MAX;
  2025. #else
  2026.         return 0;
  2027. #endif
  2028.         if (strEQ(name, "_POSIX_NO_TRUNC"))
  2029. #ifdef _POSIX_NO_TRUNC
  2030.         return _POSIX_NO_TRUNC;
  2031. #else
  2032.         return 0;
  2033. #endif
  2034.         if (strEQ(name, "_POSIX_OPEN_MAX"))
  2035. #ifdef _POSIX_OPEN_MAX
  2036.         return _POSIX_OPEN_MAX;
  2037. #else
  2038.         return 0;
  2039. #endif
  2040.         if (strEQ(name, "_POSIX_PATH_MAX"))
  2041. #ifdef _POSIX_PATH_MAX
  2042.         return _POSIX_PATH_MAX;
  2043. #else
  2044.         return 0;
  2045. #endif
  2046.         if (strEQ(name, "_POSIX_PIPE_BUF"))
  2047. #ifdef _POSIX_PIPE_BUF
  2048.         return _POSIX_PIPE_BUF;
  2049. #else
  2050.         return 0;
  2051. #endif
  2052.         if (strEQ(name, "_POSIX_SAVED_IDS"))
  2053. #ifdef _POSIX_SAVED_IDS
  2054.         return _POSIX_SAVED_IDS;
  2055. #else
  2056.         return 0;
  2057. #endif
  2058.         if (strEQ(name, "_POSIX_SSIZE_MAX"))
  2059. #ifdef _POSIX_SSIZE_MAX
  2060.         return _POSIX_SSIZE_MAX;
  2061. #else
  2062.         return 0;
  2063. #endif
  2064.         if (strEQ(name, "_POSIX_STREAM_MAX"))
  2065. #ifdef _POSIX_STREAM_MAX
  2066.         return _POSIX_STREAM_MAX;
  2067. #else
  2068.         return 0;
  2069. #endif
  2070.         if (strEQ(name, "_POSIX_TZNAME_MAX"))
  2071. #ifdef _POSIX_TZNAME_MAX
  2072.         return _POSIX_TZNAME_MAX;
  2073. #else
  2074.         return 0;
  2075. #endif
  2076.         if (strEQ(name, "_POSIX_VDISABLE"))
  2077. #ifdef _POSIX_VDISABLE
  2078.         return _POSIX_VDISABLE;
  2079. #else
  2080.         return 0;
  2081. #endif
  2082.         if (strEQ(name, "_POSIX_VERSION"))
  2083. #ifdef _POSIX_VERSION
  2084.         return _POSIX_VERSION;
  2085. #else
  2086.         return 0;
  2087. #endif
  2088.         break;
  2089.     }
  2090.     if (strnEQ(name, "_SC_", 4)) {
  2091.         if (strEQ(name, "_SC_ARG_MAX"))
  2092. #ifdef _SC_ARG_MAX
  2093.         return _SC_ARG_MAX;
  2094. #else
  2095.         goto not_there;
  2096. #endif
  2097.         if (strEQ(name, "_SC_CHILD_MAX"))
  2098. #ifdef _SC_CHILD_MAX
  2099.         return _SC_CHILD_MAX;
  2100. #else
  2101.         goto not_there;
  2102. #endif
  2103.         if (strEQ(name, "_SC_CLK_TCK"))
  2104. #ifdef _SC_CLK_TCK
  2105.         return _SC_CLK_TCK;
  2106. #else
  2107.         goto not_there;
  2108. #endif
  2109.         if (strEQ(name, "_SC_JOB_CONTROL"))
  2110. #ifdef _SC_JOB_CONTROL
  2111.         return _SC_JOB_CONTROL;
  2112. #else
  2113.         goto not_there;
  2114. #endif
  2115.         if (strEQ(name, "_SC_NGROUPS_MAX"))
  2116. #ifdef _SC_NGROUPS_MAX
  2117.         return _SC_NGROUPS_MAX;
  2118. #else
  2119.         goto not_there;
  2120. #endif
  2121.         if (strEQ(name, "_SC_OPEN_MAX"))
  2122. #ifdef _SC_OPEN_MAX
  2123.         return _SC_OPEN_MAX;
  2124. #else
  2125.         goto not_there;
  2126. #endif
  2127.         if (strEQ(name, "_SC_SAVED_IDS"))
  2128. #ifdef _SC_SAVED_IDS
  2129.         return _SC_SAVED_IDS;
  2130. #else
  2131.         goto not_there;
  2132. #endif
  2133.         if (strEQ(name, "_SC_STREAM_MAX"))
  2134. #ifdef _SC_STREAM_MAX
  2135.         return _SC_STREAM_MAX;
  2136. #else
  2137.         goto not_there;
  2138. #endif
  2139.         if (strEQ(name, "_SC_TZNAME_MAX"))
  2140. #ifdef _SC_TZNAME_MAX
  2141.         return _SC_TZNAME_MAX;
  2142. #else
  2143.         goto not_there;
  2144. #endif
  2145.         if (strEQ(name, "_SC_VERSION"))
  2146. #ifdef _SC_VERSION
  2147.         return _SC_VERSION;
  2148. #else
  2149.         goto not_there;
  2150. #endif
  2151.         break;
  2152.     }
  2153.     }
  2154.     errno = EINVAL;
  2155.     return 0;
  2156.  
  2157. not_there:
  2158.     errno = ENOENT;
  2159.     return 0;
  2160. }
  2161.  
  2162. MODULE = SigSet        PACKAGE = POSIX::SigSet        PREFIX = sig
  2163.  
  2164. POSIX::SigSet
  2165. new(packname = "POSIX::SigSet", ...)
  2166.     char *        packname
  2167.     CODE:
  2168.     {
  2169.         int i;
  2170.         RETVAL = (sigset_t*)safemalloc(sizeof(sigset_t));
  2171.         sigemptyset(RETVAL);
  2172.         for (i = 1; i < items; i++)
  2173.         sigaddset(RETVAL, SvIV(ST(i)));
  2174.     }
  2175.     OUTPUT:
  2176.     RETVAL
  2177.  
  2178. void
  2179. DESTROY(sigset)
  2180.     POSIX::SigSet    sigset
  2181.     CODE:
  2182.     safefree((char *)sigset);
  2183.  
  2184. SysRet
  2185. sigaddset(sigset, sig)
  2186.     POSIX::SigSet    sigset
  2187.     int        sig
  2188.  
  2189. SysRet
  2190. sigdelset(sigset, sig)
  2191.     POSIX::SigSet    sigset
  2192.     int        sig
  2193.  
  2194. SysRet
  2195. sigemptyset(sigset)
  2196.     POSIX::SigSet    sigset
  2197.  
  2198. SysRet
  2199. sigfillset(sigset)
  2200.     POSIX::SigSet    sigset
  2201.  
  2202. int
  2203. sigismember(sigset, sig)
  2204.     POSIX::SigSet    sigset
  2205.     int        sig
  2206.  
  2207.  
  2208. MODULE = Termios    PACKAGE = POSIX::Termios    PREFIX = cf
  2209.  
  2210. POSIX::Termios
  2211. new(packname = "POSIX::Termios", ...)
  2212.     char *        packname
  2213.     CODE:
  2214.     {
  2215. #ifdef I_TERMIOS
  2216.         RETVAL = (struct termios*)safemalloc(sizeof(struct termios));
  2217. #else
  2218.         not_here("termios");
  2219. #endif
  2220.     }
  2221.     OUTPUT:
  2222.     RETVAL
  2223.  
  2224. void
  2225. DESTROY(termios_ref)
  2226.     POSIX::Termios    termios_ref
  2227.     CODE:
  2228. #ifdef I_TERMIOS
  2229.     safefree((char *)termios_ref);
  2230. #else
  2231.         not_here("termios");
  2232. #endif
  2233.  
  2234. SysRet
  2235. getattr(termios_ref, fd = 0)
  2236.     POSIX::Termios    termios_ref
  2237.     int        fd
  2238.     CODE:
  2239.     RETVAL = tcgetattr(fd, termios_ref);
  2240.     OUTPUT:
  2241.     RETVAL
  2242.  
  2243. SysRet
  2244. setattr(termios_ref, fd = 0, optional_actions = 0)
  2245.     POSIX::Termios    termios_ref
  2246.     int        fd
  2247.     int        optional_actions
  2248.     CODE:
  2249.     RETVAL = tcsetattr(fd, optional_actions, termios_ref);
  2250.     OUTPUT:
  2251.     RETVAL
  2252.  
  2253. speed_t
  2254. cfgetispeed(termios_ref)
  2255.     POSIX::Termios    termios_ref
  2256.  
  2257. speed_t
  2258. cfgetospeed(termios_ref)
  2259.     POSIX::Termios    termios_ref
  2260.  
  2261. tcflag_t
  2262. getiflag(termios_ref)
  2263.     POSIX::Termios    termios_ref
  2264.     CODE:
  2265. #ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
  2266.     RETVAL = termios_ref->c_iflag;
  2267. #else
  2268.         not_here("getiflag");
  2269. #endif
  2270.     OUTPUT:
  2271.     RETVAL
  2272.  
  2273. tcflag_t
  2274. getoflag(termios_ref)
  2275.     POSIX::Termios    termios_ref
  2276.     CODE:
  2277. #ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
  2278.     RETVAL = termios_ref->c_oflag;
  2279. #else
  2280.         not_here("getoflag");
  2281. #endif
  2282.     OUTPUT:
  2283.     RETVAL
  2284.  
  2285. tcflag_t
  2286. getcflag(termios_ref)
  2287.     POSIX::Termios    termios_ref
  2288.     CODE:
  2289. #ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
  2290.     RETVAL = termios_ref->c_cflag;
  2291. #else
  2292.         not_here("getcflag");
  2293. #endif
  2294.     OUTPUT:
  2295.     RETVAL
  2296.  
  2297. tcflag_t
  2298. getlflag(termios_ref)
  2299.     POSIX::Termios    termios_ref
  2300.     CODE:
  2301. #ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
  2302.     RETVAL = termios_ref->c_lflag;
  2303. #else
  2304.         not_here("getlflag");
  2305. #endif
  2306.     OUTPUT:
  2307.     RETVAL
  2308.  
  2309. cc_t
  2310. getcc(termios_ref, ccix)
  2311.     POSIX::Termios    termios_ref
  2312.     int        ccix
  2313.     CODE:
  2314. #ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
  2315.     if (ccix >= NCCS)
  2316.         croak("Bad getcc subscript");
  2317.     RETVAL = termios_ref->c_cc[ccix];
  2318. #else
  2319.         not_here("getcc");
  2320. #endif
  2321.     OUTPUT:
  2322.     RETVAL
  2323.  
  2324. SysRet
  2325. cfsetispeed(termios_ref, speed)
  2326.     POSIX::Termios    termios_ref
  2327.     speed_t        speed
  2328.  
  2329. SysRet
  2330. cfsetospeed(termios_ref, speed)
  2331.     POSIX::Termios    termios_ref
  2332.     speed_t        speed
  2333.  
  2334. void
  2335. setiflag(termios_ref, iflag)
  2336.     POSIX::Termios    termios_ref
  2337.     tcflag_t    iflag
  2338.     CODE:
  2339. #ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
  2340.     termios_ref->c_iflag = iflag;
  2341. #else
  2342.         not_here("setiflag");
  2343. #endif
  2344.  
  2345. void
  2346. setoflag(termios_ref, oflag)
  2347.     POSIX::Termios    termios_ref
  2348.     tcflag_t    oflag
  2349.     CODE:
  2350. #ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
  2351.     termios_ref->c_oflag = oflag;
  2352. #else
  2353.         not_here("setoflag");
  2354. #endif
  2355.  
  2356. void
  2357. setcflag(termios_ref, cflag)
  2358.     POSIX::Termios    termios_ref
  2359.     tcflag_t    cflag
  2360.     CODE:
  2361. #ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
  2362.     termios_ref->c_cflag = cflag;
  2363. #else
  2364.         not_here("setcflag");
  2365. #endif
  2366.  
  2367. void
  2368. setlflag(termios_ref, lflag)
  2369.     POSIX::Termios    termios_ref
  2370.     tcflag_t    lflag
  2371.     CODE:
  2372. #ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
  2373.     termios_ref->c_lflag = lflag;
  2374. #else
  2375.         not_here("setlflag");
  2376. #endif
  2377.  
  2378. void
  2379. setcc(termios_ref, ccix, cc)
  2380.     POSIX::Termios    termios_ref
  2381.     int        ccix
  2382.     cc_t        cc
  2383.     CODE:
  2384. #ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
  2385.     if (ccix >= NCCS)
  2386.         croak("Bad setcc subscript");
  2387.     termios_ref->c_cc[ccix] = cc;
  2388. #else
  2389.         not_here("setcc");
  2390. #endif
  2391.  
  2392.  
  2393. MODULE = POSIX        PACKAGE = POSIX
  2394.  
  2395. double
  2396. constant(name,arg)
  2397.     char *        name
  2398.     int        arg
  2399.  
  2400. int
  2401. isalnum(charstring)
  2402.     char *        charstring
  2403.     CODE:
  2404.     char *s;
  2405.     RETVAL = 1;
  2406.     for (s = charstring; *s && RETVAL; s++)
  2407.         if (!isalnum(*s))
  2408.         RETVAL = 0;
  2409.     OUTPUT:
  2410.     RETVAL
  2411.  
  2412. int
  2413. isalpha(charstring)
  2414.     char *        charstring
  2415.     CODE:
  2416.     char *s;
  2417.     RETVAL = 1;
  2418.     for (s = charstring; *s && RETVAL; s++)
  2419.         if (!isalpha(*s))
  2420.         RETVAL = 0;
  2421.     OUTPUT:
  2422.     RETVAL
  2423.  
  2424. int
  2425. iscntrl(charstring)
  2426.     char *        charstring
  2427.     CODE:
  2428.     char *s;
  2429.     RETVAL = 1;
  2430.     for (s = charstring; *s && RETVAL; s++)
  2431.         if (!iscntrl(*s))
  2432.         RETVAL = 0;
  2433.     OUTPUT:
  2434.     RETVAL
  2435.  
  2436. int
  2437. isdigit(charstring)
  2438.     char *        charstring
  2439.     CODE:
  2440.     char *s;
  2441.     RETVAL = 1;
  2442.     for (s = charstring; *s && RETVAL; s++)
  2443.         if (!isdigit(*s))
  2444.         RETVAL = 0;
  2445.     OUTPUT:
  2446.     RETVAL
  2447.  
  2448. int
  2449. isgraph(charstring)
  2450.     char *        charstring
  2451.     CODE:
  2452.     char *s;
  2453.     RETVAL = 1;
  2454.     for (s = charstring; *s && RETVAL; s++)
  2455.         if (!isgraph(*s))
  2456.         RETVAL = 0;
  2457.     OUTPUT:
  2458.     RETVAL
  2459.  
  2460. int
  2461. islower(charstring)
  2462.     char *        charstring
  2463.     CODE:
  2464.     char *s;
  2465.     RETVAL = 1;
  2466.     for (s = charstring; *s && RETVAL; s++)
  2467.         if (!islower(*s))
  2468.         RETVAL = 0;
  2469.     OUTPUT:
  2470.     RETVAL
  2471.  
  2472. int
  2473. isprint(charstring)
  2474.     char *        charstring
  2475.     CODE:
  2476.     char *s;
  2477.     RETVAL = 1;
  2478.     for (s = charstring; *s && RETVAL; s++)
  2479.         if (!isprint(*s))
  2480.         RETVAL = 0;
  2481.     OUTPUT:
  2482.     RETVAL
  2483.  
  2484. int
  2485. ispunct(charstring)
  2486.     char *        charstring
  2487.     CODE:
  2488.     char *s;
  2489.     RETVAL = 1;
  2490.     for (s = charstring; *s && RETVAL; s++)
  2491.         if (!ispunct(*s))
  2492.         RETVAL = 0;
  2493.     OUTPUT:
  2494.     RETVAL
  2495.  
  2496. int
  2497. isspace(charstring)
  2498.     char *        charstring
  2499.     CODE:
  2500.     char *s;
  2501.     RETVAL = 1;
  2502.     for (s = charstring; *s && RETVAL; s++)
  2503.         if (!isspace(*s))
  2504.         RETVAL = 0;
  2505.     OUTPUT:
  2506.     RETVAL
  2507.  
  2508. int
  2509. isupper(charstring)
  2510.     char *        charstring
  2511.     CODE:
  2512.     char *s;
  2513.     RETVAL = 1;
  2514.     for (s = charstring; *s && RETVAL; s++)
  2515.         if (!isupper(*s))
  2516.         RETVAL = 0;
  2517.     OUTPUT:
  2518.     RETVAL
  2519.  
  2520. int
  2521. isxdigit(charstring)
  2522.     char *        charstring
  2523.     CODE:
  2524.     char *s;
  2525.     RETVAL = 1;
  2526.     for (s = charstring; *s && RETVAL; s++)
  2527.         if (!isxdigit(*s))
  2528.         RETVAL = 0;
  2529.     OUTPUT:
  2530.     RETVAL
  2531.  
  2532. SysRet
  2533. open(filename, flags = O_RDONLY, mode = 0666)
  2534.     char *        filename
  2535.     int        flags
  2536.     Mode_t        mode
  2537.     CODE:
  2538.     if (flags & (O_APPEND|O_CREAT|O_TRUNC|O_RDWR|O_WRONLY|O_EXCL))
  2539.         TAINT_PROPER("open");
  2540.     RETVAL = open(filename, flags, mode);
  2541.     OUTPUT:
  2542.     RETVAL
  2543.  
  2544.  
  2545. HV *
  2546. localeconv()
  2547.     CODE:
  2548. #ifdef HAS_LOCALECONV
  2549.     struct lconv *lcbuf;
  2550.     RETVAL = newHV();
  2551.     if (lcbuf = localeconv()) {
  2552.         /* the strings */
  2553.         if (lcbuf->decimal_point && *lcbuf->decimal_point)
  2554.         hv_store(RETVAL, "decimal_point", 13,
  2555.             newSVpv(lcbuf->decimal_point, 0), 0);
  2556.         if (lcbuf->thousands_sep && *lcbuf->thousands_sep)
  2557.         hv_store(RETVAL, "thousands_sep", 13,
  2558.             newSVpv(lcbuf->thousands_sep, 0), 0);
  2559.         if (lcbuf->grouping && *lcbuf->grouping)
  2560.         hv_store(RETVAL, "grouping", 8,
  2561.             newSVpv(lcbuf->grouping, 0), 0);
  2562.         if (lcbuf->int_curr_symbol && *lcbuf->int_curr_symbol)
  2563.         hv_store(RETVAL, "int_curr_symbol", 15,
  2564.             newSVpv(lcbuf->int_curr_symbol, 0), 0);
  2565.         if (lcbuf->currency_symbol && *lcbuf->currency_symbol)
  2566.         hv_store(RETVAL, "currency_symbol", 15,
  2567.             newSVpv(lcbuf->currency_symbol, 0), 0);
  2568.         if (lcbuf->mon_decimal_point && *lcbuf->mon_decimal_point)
  2569.         hv_store(RETVAL, "mon_decimal_point", 17,
  2570.             newSVpv(lcbuf->mon_decimal_point, 0), 0);
  2571.         if (lcbuf->mon_thousands_sep && *lcbuf->mon_thousands_sep)
  2572.         hv_store(RETVAL, "mon_thousands_sep", 17,
  2573.             newSVpv(lcbuf->mon_thousands_sep, 0), 0);
  2574.         if (lcbuf->mon_grouping && *lcbuf->mon_grouping)
  2575.         hv_store(RETVAL, "mon_grouping", 12,
  2576.             newSVpv(lcbuf->mon_grouping, 0), 0);
  2577.         if (lcbuf->positive_sign && *lcbuf->positive_sign)
  2578.         hv_store(RETVAL, "positive_sign", 13,
  2579.             newSVpv(lcbuf->positive_sign, 0), 0);
  2580.         if (lcbuf->negative_sign && *lcbuf->negative_sign)
  2581.         hv_store(RETVAL, "negative_sign", 13,
  2582.             newSVpv(lcbuf->negative_sign, 0), 0);
  2583.         /* the integers */
  2584.         if (lcbuf->int_frac_digits != CHAR_MAX)
  2585.         hv_store(RETVAL, "int_frac_digits", 15,
  2586.             newSViv(lcbuf->int_frac_digits), 0);
  2587.         if (lcbuf->frac_digits != CHAR_MAX)
  2588.         hv_store(RETVAL, "frac_digits", 11,
  2589.             newSViv(lcbuf->frac_digits), 0);
  2590.         if (lcbuf->p_cs_precedes != CHAR_MAX)
  2591.         hv_store(RETVAL, "p_cs_precedes", 13,
  2592.             newSViv(lcbuf->p_cs_precedes), 0);
  2593.         if (lcbuf->p_sep_by_space != CHAR_MAX)
  2594.         hv_store(RETVAL, "p_sep_by_space", 14,
  2595.             newSViv(lcbuf->p_sep_by_space), 0);
  2596.         if (lcbuf->n_cs_precedes != CHAR_MAX)
  2597.         hv_store(RETVAL, "n_cs_precedes", 13,
  2598.             newSViv(lcbuf->n_cs_precedes), 0);
  2599.         if (lcbuf->n_sep_by_space != CHAR_MAX)
  2600.         hv_store(RETVAL, "n_sep_by_space", 14,
  2601.             newSViv(lcbuf->n_sep_by_space), 0);
  2602.         if (lcbuf->p_sign_posn != CHAR_MAX)
  2603.         hv_store(RETVAL, "p_sign_posn", 11,
  2604.             newSViv(lcbuf->p_sign_posn), 0);
  2605.         if (lcbuf->n_sign_posn != CHAR_MAX)
  2606.         hv_store(RETVAL, "n_sign_posn", 11,
  2607.             newSViv(lcbuf->n_sign_posn), 0);
  2608.     }
  2609. #else
  2610.     localeconv(); /* A stub to call not_here(). */
  2611. #endif
  2612.     OUTPUT:
  2613.     RETVAL
  2614.  
  2615. char *
  2616. setlocale(category, locale)
  2617.     int        category
  2618.     char *        locale
  2619.  
  2620. double
  2621. acos(x)
  2622.     double        x
  2623.  
  2624. double
  2625. asin(x)
  2626.     double        x
  2627.  
  2628. double
  2629. atan(x)
  2630.     double        x
  2631.  
  2632. double
  2633. ceil(x)
  2634.     double        x
  2635.  
  2636. double
  2637. cosh(x)
  2638.     double        x
  2639.  
  2640. double
  2641. floor(x)
  2642.     double        x
  2643.  
  2644. double
  2645. fmod(x,y)
  2646.     double        x
  2647.     double        y
  2648.  
  2649. void
  2650. frexp(x)
  2651.     double        x
  2652.     PPCODE:
  2653.     int expvar;
  2654.     /* (We already know stack is long enough.) */
  2655.     PUSHs(sv_2mortal(newSVnv(frexp(x,&expvar))));
  2656.     PUSHs(sv_2mortal(newSViv(expvar)));
  2657.  
  2658. double
  2659. ldexp(x,exp)
  2660.     double        x
  2661.     int        exp
  2662.  
  2663. double
  2664. log10(x)
  2665.     double        x
  2666.  
  2667. void
  2668. modf(x)
  2669.     double        x
  2670.     PPCODE:
  2671.     double intvar;
  2672.     /* (We already know stack is long enough.) */
  2673.     PUSHs(sv_2mortal(newSVnv(modf(x,&intvar))));
  2674.     PUSHs(sv_2mortal(newSVnv(intvar)));
  2675.  
  2676. double
  2677. sinh(x)
  2678.     double        x
  2679.  
  2680. double
  2681. tan(x)
  2682.     double        x
  2683.  
  2684. double
  2685. tanh(x)
  2686.     double        x
  2687.  
  2688. SysRet
  2689. sigaction(sig, action, oldaction = 0)
  2690.     int            sig
  2691.     POSIX::SigAction    action
  2692.     POSIX::SigAction    oldaction
  2693.     CODE:
  2694.  
  2695. # This code is really grody because we're trying to make the signal
  2696. # interface look beautiful, which is hard.
  2697.  
  2698.     if (!siggv)
  2699.         gv_fetchpv("SIG", TRUE, SVt_PVHV);
  2700.  
  2701.     {
  2702.         struct sigaction act;
  2703.         struct sigaction oact;
  2704.         POSIX__SigSet sigset;
  2705.         SV** svp;
  2706.         SV** sigsvp = hv_fetch(GvHVn(siggv),
  2707.                  sig_name[sig],
  2708.                  strlen(sig_name[sig]),
  2709.                  TRUE);
  2710.  
  2711.         /* Remember old handler name if desired. */
  2712.         if (oldaction) {
  2713.         char *hand = SvPVx(*sigsvp, na);
  2714.         svp = hv_fetch(oldaction, "HANDLER", 7, TRUE);
  2715.         sv_setpv(*svp, *hand ? hand : "DEFAULT");
  2716.         }
  2717.  
  2718.         if (action) {
  2719.         /* Vector new handler through %SIG.  (We always use sighandler
  2720.            for the C signal handler, which reads %SIG to dispatch.) */
  2721.         svp = hv_fetch(action, "HANDLER", 7, FALSE);
  2722.         if (!svp)
  2723.             croak("Can't supply an action without a HANDLER");
  2724.         sv_setpv(*sigsvp, SvPV(*svp, na));
  2725.         mg_set(*sigsvp);    /* handles DEFAULT and IGNORE */
  2726.         act.sa_handler = sighandler;
  2727.  
  2728.         /* Set up any desired mask. */
  2729.         svp = hv_fetch(action, "MASK", 4, FALSE);
  2730.         if (svp && sv_isa(*svp, "POSIX::SigSet")) {
  2731.             unsigned long tmp;
  2732.             tmp = (unsigned long)SvNV((SV*)SvRV(*svp));
  2733.             sigset = (sigset_t*) tmp;
  2734.             act.sa_mask = *sigset;
  2735.         }
  2736.         else
  2737.             sigemptyset(& act.sa_mask);
  2738.  
  2739.         /* Set up any desired flags. */
  2740.         svp = hv_fetch(action, "FLAGS", 5, FALSE);
  2741.         act.sa_flags = svp ? SvIV(*svp) : 0;
  2742.         }
  2743.  
  2744.         /* Now work around sigaction oddities */
  2745.         if (action && oldaction)
  2746.         RETVAL = sigaction(sig, & act, & oact);
  2747.         else if (action)
  2748.         RETVAL = sigaction(sig, & act, (struct sigaction*)0);
  2749.         else if (oldaction)
  2750.         RETVAL = sigaction(sig, (struct sigaction*)0, & oact);
  2751.         else
  2752.         RETVAL = -1;
  2753.  
  2754.         if (oldaction) {
  2755.         /* Get back the mask. */
  2756.         svp = hv_fetch(oldaction, "MASK", 4, TRUE);
  2757.         if (sv_isa(*svp, "POSIX::SigSet")) {
  2758.             unsigned long tmp;
  2759.             tmp = (unsigned long)SvNV((SV*)SvRV(*svp));
  2760.             sigset = (sigset_t*) tmp;
  2761.         }
  2762.         else {
  2763.             sigset = (sigset_t*)safemalloc(sizeof(sigset_t));
  2764.             sv_setptrobj(*svp, sigset, "POSIX::SigSet");
  2765.         }
  2766.         *sigset = oact.sa_mask;
  2767.  
  2768.         /* Get back the flags. */
  2769.         svp = hv_fetch(oldaction, "FLAGS", 5, TRUE);
  2770.         sv_setiv(*svp, oact.sa_flags);
  2771.         }
  2772.     }
  2773.     OUTPUT:
  2774.     RETVAL
  2775.  
  2776. SysRet
  2777. sigpending(sigset)
  2778.     POSIX::SigSet        sigset
  2779.  
  2780. SysRet
  2781. sigprocmask(how, sigset, oldsigset = 0)
  2782.     int            how
  2783.     POSIX::SigSet        sigset
  2784.     POSIX::SigSet        oldsigset
  2785.  
  2786. SysRet
  2787. sigsuspend(signal_mask)
  2788.     POSIX::SigSet        signal_mask
  2789.  
  2790. void
  2791. _exit(status)
  2792.     int        status
  2793.  
  2794. SysRet
  2795. close(fd)
  2796.     int        fd
  2797.  
  2798. SysRet
  2799. dup(fd)
  2800.     int        fd
  2801.  
  2802. SysRet
  2803. dup2(fd1, fd2)
  2804.     int        fd1
  2805.     int        fd2
  2806.  
  2807. SysRetLong
  2808. lseek(fd, offset, whence)
  2809.     int        fd
  2810.     Off_t        offset
  2811.     int        whence
  2812.  
  2813. SysRet
  2814. nice(incr)
  2815.     int        incr
  2816.  
  2817. int
  2818. pipe()
  2819.     PPCODE:
  2820.     int fds[2];
  2821.     if (pipe(fds) != -1) {
  2822.         EXTEND(sp,2);
  2823.         PUSHs(sv_2mortal(newSViv(fds[0])));
  2824.         PUSHs(sv_2mortal(newSViv(fds[1])));
  2825.     }
  2826.  
  2827. SysRet
  2828. read(fd, buffer, nbytes)
  2829.     PREINIT:
  2830.         SV *sv_buffer = SvROK(ST(1)) ? SvRV(ST(1)) : ST(1);
  2831.     INPUT:
  2832.         int             fd
  2833.         size_t          nbytes
  2834.         char *          buffer = sv_grow( sv_buffer, nbytes+1 );
  2835.     CLEANUP:
  2836.         if (RETVAL >= 0) {
  2837.             SvCUR(sv_buffer) = RETVAL;
  2838.             SvPOK_only(sv_buffer);
  2839.             *SvEND(sv_buffer) = '\0';
  2840.             if (tainting)
  2841.                 sv_magic(sv_buffer, 0, 't', 0, 0);
  2842.         }
  2843.  
  2844. SysRet
  2845. setpgid(pid, pgid)
  2846.     pid_t        pid
  2847.     pid_t        pgid
  2848.  
  2849. pid_t
  2850. setsid()
  2851.  
  2852. pid_t
  2853. tcgetpgrp(fd)
  2854.     int        fd
  2855.  
  2856. SysRet
  2857. tcsetpgrp(fd, pgrp_id)
  2858.     int        fd
  2859.     pid_t        pgrp_id
  2860.  
  2861. int
  2862. uname()
  2863.     PPCODE:
  2864. #ifdef HAS_UNAME
  2865.     struct utsname buf;
  2866.     if (uname(&buf) >= 0) {
  2867.         EXTEND(sp, 5);
  2868.         PUSHs(sv_2mortal(newSVpv(buf.sysname, 0)));
  2869.         PUSHs(sv_2mortal(newSVpv(buf.nodename, 0)));
  2870.         PUSHs(sv_2mortal(newSVpv(buf.release, 0)));
  2871.         PUSHs(sv_2mortal(newSVpv(buf.version, 0)));
  2872.         PUSHs(sv_2mortal(newSVpv(buf.machine, 0)));
  2873.     }
  2874. #else
  2875.     uname((char *) 0); /* A stub to call not_here(). */
  2876. #endif
  2877.  
  2878. SysRet
  2879. write(fd, buffer, nbytes)
  2880.     int        fd
  2881.     char *        buffer
  2882.     size_t        nbytes
  2883.  
  2884. char *
  2885. tmpnam(s = 0)
  2886.     char *        s = 0;
  2887.  
  2888. void
  2889. abort()
  2890.  
  2891. int
  2892. mblen(s, n)
  2893.     char *        s
  2894.     size_t        n
  2895.  
  2896. size_t
  2897. mbstowcs(s, pwcs, n)
  2898.     wchar_t *    s
  2899.     char *        pwcs
  2900.     size_t        n
  2901.  
  2902. int
  2903. mbtowc(pwc, s, n)
  2904.     wchar_t *    pwc
  2905.     char *        s
  2906.     size_t        n
  2907.  
  2908. int
  2909. wcstombs(s, pwcs, n)
  2910.     char *        s
  2911.     wchar_t *    pwcs
  2912.     size_t        n
  2913.  
  2914. int
  2915. wctomb(s, wchar)
  2916.     char *        s
  2917.     wchar_t        wchar
  2918.  
  2919. int
  2920. strcoll(s1, s2)
  2921.     char *        s1
  2922.     char *        s2
  2923.  
  2924. SV *
  2925. strxfrm(src)
  2926.     SV *        src
  2927.     CODE:
  2928.     {
  2929.           STRLEN srclen;
  2930.           STRLEN dstlen;
  2931.           char *p = SvPV(src,srclen);
  2932.           srclen++;
  2933.           ST(0) = sv_2mortal(NEWSV(800,srclen));
  2934.           dstlen = strxfrm(SvPVX(ST(0)), p, (size_t)srclen);
  2935.           if (dstlen > srclen) {
  2936.               dstlen++;
  2937.               SvGROW(ST(0), dstlen);
  2938.               strxfrm(SvPVX(ST(0)), p, (size_t)dstlen);
  2939.               dstlen--;
  2940.           }
  2941.           SvCUR(ST(0)) = dstlen;
  2942.         SvPOK_only(ST(0));
  2943.     }
  2944.  
  2945. SysRet
  2946. mkfifo(filename, mode)
  2947.     char *        filename
  2948.     Mode_t        mode
  2949.     CODE:
  2950.     TAINT_PROPER("mkfifo");
  2951.     RETVAL = mkfifo(filename, mode);
  2952.     OUTPUT:
  2953.     RETVAL
  2954.  
  2955. SysRet
  2956. tcdrain(fd)
  2957.     int        fd
  2958.  
  2959.  
  2960. SysRet
  2961. tcflow(fd, action)
  2962.     int        fd
  2963.     int        action
  2964.  
  2965.  
  2966. SysRet
  2967. tcflush(fd, queue_selector)
  2968.     int        fd
  2969.     int        queue_selector
  2970.  
  2971. SysRet
  2972. tcsendbreak(fd, duration)
  2973.     int        fd
  2974.     int        duration
  2975.  
  2976. char *
  2977. asctime(sec, min, hour, mday, mon, year, wday = 0, yday = 0, isdst = 0)
  2978.     int        sec
  2979.     int        min
  2980.     int        hour
  2981.     int        mday
  2982.     int        mon
  2983.     int        year
  2984.     int        wday
  2985.     int        yday
  2986.     int        isdst
  2987.     CODE:
  2988.     {
  2989.         struct tm mytm;
  2990.         init_tm(&mytm);    /* XXX workaround - see init_tm() above */
  2991.         mytm.tm_sec = sec;
  2992.         mytm.tm_min = min;
  2993.         mytm.tm_hour = hour;
  2994.         mytm.tm_mday = mday;
  2995.         mytm.tm_mon = mon;
  2996.         mytm.tm_year = year;
  2997.         mytm.tm_wday = wday;
  2998.         mytm.tm_yday = yday;
  2999.         mytm.tm_isdst = isdst;
  3000.         RETVAL = asctime(&mytm);
  3001.     }
  3002.     OUTPUT:
  3003.     RETVAL
  3004.  
  3005. long
  3006. clock()
  3007.  
  3008. char *
  3009. ctime(time)
  3010.     Time_t        &time
  3011.  
  3012. void
  3013. times()
  3014.     PPCODE:
  3015.     struct tms tms;
  3016.     clock_t realtime;
  3017.     realtime = times( &tms );
  3018.     EXTEND(sp,5);
  3019.     PUSHs( sv_2mortal( newSVnv( realtime ) ) );
  3020.     PUSHs( sv_2mortal( newSVnv( tms.tms_utime ) ) );
  3021.     PUSHs( sv_2mortal( newSVnv( tms.tms_stime ) ) );
  3022.     PUSHs( sv_2mortal( newSVnv( tms.tms_cutime ) ) );
  3023.     PUSHs( sv_2mortal( newSVnv( tms.tms_cstime ) ) );
  3024.  
  3025. double
  3026. difftime(time1, time2)
  3027.     Time_t        time1
  3028.     Time_t        time2
  3029.  
  3030. SysRetLong
  3031. mktime(sec, min, hour, mday, mon, year, wday = 0, yday = 0, isdst = 0)
  3032.     int        sec
  3033.     int        min
  3034.     int        hour
  3035.     int        mday
  3036.     int        mon
  3037.     int        year
  3038.     int        wday
  3039.     int        yday
  3040.     int        isdst
  3041.     CODE:
  3042.     {
  3043.         struct tm mytm;
  3044.         init_tm(&mytm);    /* XXX workaround - see init_tm() above */
  3045.         mytm.tm_sec = sec;
  3046.         mytm.tm_min = min;
  3047.         mytm.tm_hour = hour;
  3048.         mytm.tm_mday = mday;
  3049.         mytm.tm_mon = mon;
  3050.         mytm.tm_year = year;
  3051.         mytm.tm_wday = wday;
  3052.         mytm.tm_yday = yday;
  3053.         mytm.tm_isdst = isdst;
  3054.         RETVAL = mktime(&mytm);
  3055.     }
  3056.     OUTPUT:
  3057.     RETVAL
  3058.  
  3059. char *
  3060. strftime(fmt, sec, min, hour, mday, mon, year, wday = 0, yday = 0, isdst = 0)
  3061.     char *        fmt
  3062.     int        sec
  3063.     int        min
  3064.     int        hour
  3065.     int        mday
  3066.     int        mon
  3067.     int        year
  3068.     int        wday
  3069.     int        yday
  3070.     int        isdst
  3071.     CODE:
  3072.     {
  3073.         char tmpbuf[128];
  3074.         struct tm mytm;
  3075.         int len;
  3076.         init_tm(&mytm);    /* XXX workaround - see init_tm() above */
  3077.         mytm.tm_sec = sec;
  3078.         mytm.tm_min = min;
  3079.         mytm.tm_hour = hour;
  3080.         mytm.tm_mday = mday;
  3081.         mytm.tm_mon = mon;
  3082.         mytm.tm_year = year;
  3083.         mytm.tm_wday = wday;
  3084.         mytm.tm_yday = yday;
  3085.         mytm.tm_isdst = isdst;
  3086.         len = strftime(tmpbuf, sizeof tmpbuf, fmt, &mytm);
  3087.         ST(0) = sv_2mortal(newSVpv(tmpbuf, len));
  3088.     }
  3089.  
  3090. void
  3091. tzset()
  3092.  
  3093. void
  3094. tzname()
  3095.     PPCODE:
  3096.     EXTEND(sp,2);
  3097.     PUSHs(sv_2mortal(newSVpv(tzname[0],strlen(tzname[0]))));
  3098.     PUSHs(sv_2mortal(newSVpv(tzname[1],strlen(tzname[1]))));
  3099.  
  3100. SysRet
  3101. access(filename, mode)
  3102.     char *        filename
  3103.     Mode_t        mode
  3104.  
  3105. char *
  3106. ctermid(s = 0)
  3107.     char *        s = 0;
  3108.  
  3109. char *
  3110. cuserid(s = 0)
  3111.     char *        s = 0;
  3112.  
  3113. SysRetLong
  3114. fpathconf(fd, name)
  3115.     int        fd
  3116.     int        name
  3117.  
  3118. SysRetLong
  3119. pathconf(filename, name)
  3120.     char *        filename
  3121.     int        name
  3122.  
  3123. SysRet
  3124. pause()
  3125.  
  3126. SysRetLong
  3127. sysconf(name)
  3128.     int        name
  3129.  
  3130. char *
  3131. ttyname(fd)
  3132.     int        fd
  3133.